我在 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
最佳答案
你的意思是不为空还是大于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
关于excel - 如果列中的单元格有数据，则复制并粘贴到同一行中的不同单元格，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/39892286/