Блог

Главная - Вопросы по программированию - Если ячейка в столбце содержит данные, скопируйте и вставьте в другую ячейку в той же строке

Если ячейка в столбце содержит данные, скопируйте и вставьте в другую ячейку в той же строке

#excel #copy #paste #vba

#excel #Копировать #вставить #vba

Вопрос:

У меня есть данные в столбце в BR, и я пытаюсь заставить свой макрос работать так, чтобы, если ячейка не была пустой, она копировала и вставляла данные в столбец AO в той же строке.

У меня это пока есть, но, похоже, это не работает. 

 Application.ScreenUpdating = False
For i = 1 To Range("BR" amp; Rows.Count).End(xlUp).Row
    If Cells(i, "BR").Value >= "1" Then .Cut Destination:=Cells(i, "AO")
Next i

Ответ №1:

Вы имеете в виду не пустой или больше 1?

 For i = 1 To Range("BR" amp; Rows.Count).End(xlUp).Row
    If Cells(i, 70).Value <> "" Then Cells(i, 41).Value = Cells(i, 70).Value
Next i

Комментарии:

1. Не беспокойтесь, не стесняйтесь соглашаться, если ответ помог.