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

Question

下午好。

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

我不能发布图像，因为我不幸是新用户。如果F列中的单元格等于“Empty to 0”，我需要将值更改为“Empty to Kettering”并合并到O列，然后移动到第6行。

任何帮助都将不胜感激。

Answer 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 。