VBA通过列循环合并单元格

Question

我的 WS 看起来像这样

我有这个代码：

Dim w As Long

Dim wb As Workbook
Dim sht As Worksheet

Set wb = ActiveWorkbook
Set sht = wb.ActiveSheet

Dim lRow As Long
Dim lCol As Long

lRow = Cells(Rows.Count, 1).End(xlUp).Row
lCol = Cells(4, Columns.Count).End(xlToLeft).Column

For w = 1 To lCol

   Range(.Cells(1, w), .Cells(2, w), .Cells(3, w)).Merge

Next w

我想让单元格像这样合并和居中：

但我找不到正确的方法。我想合并每列中的前 3 个单元格 示例：A1:A3，但列太多，所以我想遍历它们。 谢谢！

Answer 1

我想通了！这就是答案

  For w = 1 To lCol

     With sht
         Range(Cells(1, w), Cells(3, w)).Merge

     End With

  Next w