-1

下午好。

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

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

任何帮助,将不胜感激。

4

1 回答 1

0

此宏将处理从第 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

于 2013-10-04T13:13:56.327 回答