Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
下午好。
我需要帮助编写一个需要查看单元格 F5 中的值的宏,如果它满足特定标准,它将合并单元格 F5:O5,然后移动到 f6 并重复 50 行。
不幸的是,我是新用户,无法发布图片。如果 F 列中的单元格等于“Empty to 0”,我需要将值更改为“Empty to Kettering”并合并到 O 列,然后它们移动到第 6 行。
任何帮助,将不胜感激。
此宏将处理从第 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。