如果列中的單元格有數據，則復制並粘貼到同一行中的不同單元格

Question

我在 BR 的列中有數據，我試圖讓我的宏工作，以便如果單元格不是空白，那么它會將數據復制並粘貼到同一行的 AO 列。

到目前為止我有這個，但它似乎不起作用。

Application.ScreenUpdating = False
For i = 1 To Range("BR" & Rows.Count).End(xlUp).Row
    If Cells(i, "BR").Value >= "1" Then .Cut Destination:=Cells(i, "AO")
Next i

Answer 1

你的意思是不是空白或大於1？

For i = 1 To Range("BR" & Rows.Count).End(xlUp).Row
    If Cells(i, 70).Value <> "" Then Cells(i, 41).Value = Cells(i, 70).Value
Next i