使用VB设置excel表格居中对齐

在Visual Basic (VB) 中，你可以通过宏或者直接操作Excel的对象模型来设置Excel单元格的居中对齐。以下是使用VBA的一个简单示例：

Sub CenterAlignCells()
    Dim ws As Worksheet ' 假设我们操作的是当前活动工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你需要操作的工作表名称

    ' 遍历所有行
    For Each cell In ws.Range("A1:Z" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        ' 设置单元格水平居中和垂直居中
        cell.HorizontalAlignment = xlCenter
        cell.VerticalAlignment = xlCenter
    Next cell
End Sub

这个宏会将工作表"Sheet1"中的所有A到Z列（可根据实际情况调整）的单元格都居中对齐。如果你想让特定范围的单元格居中，只需更改`ws.Range("A1:Z...")`部分即可。

如果你是在Excel环境中而不是编写宏，可以在选中单元格后，点击“开始”菜单，选择“对齐”，然后从上下文菜单中选择“居中”。