您好，MV。您知道，不时地有人问个问题，我们都会想：“哎呀，您猜猜我们已经回答这个问题多少次了？”当然，当我们再一想的时候就会发现我们从未回答过那个问题；而只是感觉我们好像应该已经在相关系列问题中的某个地方回答过该问题了。只是我们不记得罢了。

在您提问之前先澄清一点，这与脚本专家变老无关；事实上，由于辛苦的工作和严谨的生活，每个脚本专家都没有变老。他们的头发并不是真的变得灰白了；只是被太阳漂白了头发。

注意。当然这很困难，但如果您打算把家安在阳光普照的西雅图，那么将您的头发漂白 – 漂白得如此厉害以至于您的头发开始看起来呈灰色 – 只是您必须学着忍受的事情之一。

无论如何，结果证明我们从来没有告诉过大家如何在 Excel 单元格中居中文本。嗯，那么现在就介绍一下：

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Add



Set objWorksheet = objWorkbook.Worksheets(1)



objWorksheet.Cells(1, 1) = "A"

objWorksheet.Cells(1, 2) = "B"

objWorksheet.Cells(1, 3) = "C"



objWorksheet.Cells(1, 2).HorizontalAlignment = -4108

尽管会破除悬念，我们还是要告诉您，您真正需要担心的唯一代码行只是最后一行；脚本的其余部分只是创建了一个 Excel 电子表格并向其中添加了一些数据。为执行此操作，该脚本首先创建一个 Excel.Application 对象的实例，然后将 Visible 属性设置为 True；这将使我们可以在屏幕上看到 Excel 的运行实例。我们使用 Add 方法将新的工作簿添加到 Excel 实例，然后使用此代码行绑定到该工作簿中的第一个工作表：

Set objWorksheet = objWorkbook.Worksheets(1)

当然，在单元格中居中文本的脚本不是都那么令人印象深刻，除非单元格中确实有一些文本。因此，我们使用以下三行代码将字母 A、B 和 C 分别放到单元格 A1、B1 和 C1 中：

objWorksheet.Cells(1, 1) = "A"

objWorksheet.Cells(1, 2) = "B"

objWorksheet.Cells(1, 3) = "C"

现在，我们如何在其中一个单元格中居中文本？嗯，此行代码将居中单元格 B1（即第 1 行、第 2 列的单元格）的文本：

objWorksheet.Cells(1, 2).HorizontalAlignment = -4108

正如您所看到的，我们必须做的就是将单元格的 HorizontalAlignment 属性的值设置为 -4108；这样就可以居中单元格中的文本。如果想要将单元格右对齐，则将 HorizontalValue 设置为 -4152；将该值设置为 -4131 可以将文本左对齐。

运行该脚本，运行完成后的电子表格中，单元格 B1 中的文本居中，
又是一天，又回答了一个问题。说起来，关于在 Excel 中居中文本的问题，我们已经回答过多少次了？

哦，对了：一次。看来太阳把我们的大脑和头发一起漂白了……