Столкнулись с такой проблемой - макрос, при попытке задать ему действия копирования теста ячейки из столбца А в столбец B при условии пустой ячейки в B будет копировать только единожды заданный диапазон. Если же содержание таблица длиннее, и скопировать уже нужно будет не только диапазон, к примеру, с 1 строки по 21, но и с 22 по 70, то он их уже не будет трогать. Каким образов прописать условие в VBA, чтобы при наличии пустой ячейки значение копировалось из нужного столбца этой же строки? При этом само значение, скопированное в "пустоту", будет меняться в дальнейшем и не должно повлиять на "бывшую пустую" ячейку.
В примере нужно, чтобы в пустые ячейки столба L (услуга) копировались значения ячеек столбца G (сервис).
Здравствуйте!
Столкнулись с такой проблемой - макрос, при попытке задать ему действия копирования теста ячейки из столбца А в столбец B при условии пустой ячейки в B будет копировать только единожды заданный диапазон. Если же содержание таблица длиннее, и скопировать уже нужно будет не только диапазон, к примеру, с 1 строки по 21, но и с 22 по 70, то он их уже не будет трогать. Каким образов прописать условие в VBA, чтобы при наличии пустой ячейки значение копировалось из нужного столбца этой же строки? При этом само значение, скопированное в "пустоту", будет меняться в дальнейшем и не должно повлиять на "бывшую пустую" ячейку.
В примере нужно, чтобы в пустые ячейки столба L (услуга) копировались значения ячеек столбца G (сервис).WolFoX
Sub tt() r1_ = Range("C" & Rows.Count).End(3).Row For i = 2 To r1_ If Range("H" & i) = "" Then Range("H" & i) = Range("C" & i).Value End If Next i End Sub
[/vba] К сожалению, у Вас "пустые" ячейки в столбце Н не совсем пустые (СЧЁТЗ(H2:H12) дает 11 вместо 5), иначе можно было бы проще сделать.
Так нужно? [vba]
Код
Sub tt() r1_ = Range("C" & Rows.Count).End(3).Row For i = 2 To r1_ If Range("H" & i) = "" Then Range("H" & i) = Range("C" & i).Value End If Next i End Sub
[/vba] К сожалению, у Вас "пустые" ячейки в столбце Н не совсем пустые (СЧЁТЗ(H2:H12) дает 11 вместо 5), иначе можно было бы проще сделать._Boroda_