如果列中的单元格有数据，则复制并粘贴到同一行中的其他单元格

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