Vba 合并并居中多行

如何在Excel中合并并居中多行

---

例如，我想合并行A1和A2、B1和B2、C1和C2并将其居中。。F1和F2以及A3和A4、B3和B4、C3和C4。。F3和F4等至A902和903。。F902..903

将单元格A1与A2合并，然后自动填充整个范围的格式（时间~5-7秒）

请参见下面的代码：

Sub SomeSub()

    Dim Range1 As Range
    'Looping through the rows steppin up by two each time
    For r = 1 To 902 Step 2

        'Looping through the Columns
        For col = 1 To 6

            'Setting the range for the two cells
            Set Range1 = Range(Cells(r, col), Cells(r + 1, col))
            'Merging the cells
            Range1.Merge
            'Setting horizontal alignment
            Range1.HorizontalAlignment = xlCenter

        Next col
    Next r

End Sub

---

请注意，脚本将合并第901行和第902行，这是合并第1行和第2行之后的形式，每次递增2行。如果要合并第903行和第904行，请将第902行更改为第904行。

您是否尝试过宏录制器？如您所见，一个简单的谷歌搜索就足够了：它是一个帮助您进步的网站，因此我们需要查看您在来这里询问之前是否尝试过。因此，从这里开始，编辑您的问题！看一看：我同意对这个问题的评论，然后在这里，我们更愿意帮助代码已经开发，但工作不正常，这不是一个请给我这个代码网站。此外，循环有时不是最容易学会的，除非你有逻辑思维。话虽如此，为了向OP展示如何开发循环，并看到OP是新的，我在下面给出了答案。@Heriyanto您的单元格中已经有数据了吗？出现了什么错误？还是我的代码工作正常？@Jean-pierreosshuizen很抱歉回复太晚，因为我没有看到任何关于您回复的通知。你的代码做得很好，我只是做了一点修改，这在我的工作中节省了很多时间，真的很有帮助，非常感谢你，先生。。