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

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

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

If cell in column has data then copy and paste to a different cell in same row

excel

vba

copy

paste