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

我有在BR列中的数据，我试图让我的macros工作，以便如果该单元格不是空白，然后它复制和粘贴到同一行的列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