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

提问于 2024-05-04T03:43:08+08:00

浏览次

2

我在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 回答

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

回复于 2024-05-04T03:43:08+08:00

相关问题