使用宏合并一行中的单元格，然后移动到下一行答案

【问题标题】：Using a macro to merge cells in a row and then move to next row使用宏合并一行中的单元格，然后移动到下一行
【发布时间】：2013-10-11 11:43:27
【问题描述】：

下午好。

我需要帮助编写一个需要查看单元格 F5 中的值的宏，如果它满足特定条件，它会合并单元格 F5:O5，然后移动到 f6 并重复 50 行。

很遗憾，我是新用户，无法发布图片。如果 F 列中的单元格等于“Empty to 0”，我需要将值更改为“Empty to Kettering”并合并到 O 列，然后它们移动到第 6 行。

任何帮助将不胜感激。

【问题讨论】：

标签： excel vba merge

【解决方案1】：

此宏将从第 5 行开始处理 50 行：

Sub Mergee()
    Dim I As Long
    For I = 5 To 54
        If Cells(I, "F").Text = "Empty to 0" Then
            Cells(I, "F").Value = "Empty to Kettering"
            Range(Cells(I, "F"), Cells(I, "O")).Merge
        End If
    Next I
End Sub

要更改行数，请更改 54。

【讨论】：