使用宏合併行中的單元格，然後移動到下一行

Question

下午好。

我需要幫助編寫一個需要查看單元格F5中的值的宏，並且如果它符合某個標準，它會合並單元格F5：O5，然後移至f6並重復50行。

不能發佈圖片，因爲我不幸是新用戶。如果列F中的單元格等於「Empty to 0」，我需要將該值更改爲「Empty to Kettering」併合併到列O，然後它們移動到第6行。

任何幫助，將不勝感激。

Answer 1

該宏將處理50行開始行＃5：

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 

要更改的行數，改變。