合并行3中的每3行

我想合并第1行的每个3个单元格（从B1开始，最后一个要合并的单元格是FY – 意味着FW，FX和FY应该合并）。 我用这个来合并每一行3列，但是我怎么会改变这个跨越第1行？

Function MergeHeaders() Application.DisplayAlerts = False Dim RgToMerge As Range For i = 3 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row Step 3 Set RgToMerge = Range(Cells(i, 3), Cells(i + 1, 3)) With RgToMerge .Merge .HorizontalAlignment = xlCenterAcrossSelection .VerticalAlignment = xlCenter End With Next i End Function 

Answer 1

更像这样的东西？

 Function MergeHeaders() Dim RgToMerge As Range Application.DisplayAlerts = False For i = 2 To ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column Step 3 Set RgToMerge = Range(Cells(1, i), Cells(1, i + 2)) With RgToMerge .Merge .HorizontalAlignment = xlCenterAcrossSelection .VerticalAlignment = xlCenter End With Next i End Function