Добрый день.
Помогите пжста переделать макрос.
Сейчас действие выполняется только для столбца "А" - Cells(Rows.Count, "A"),
как сделать так что бы столбец автоматически определялся по текущей выделенной ячейке ?
Помогите пжста переделать макрос.
Сейчас действие выполняется только для столбца "А" - Cells(Rows.Count, "A"),
как сделать так что бы столбец автоматически определялся по текущей выделенной ячейке ?
Код |
---|
Option Explicit Option Compare Text Sub XXXX() Dim i%, box As String With Sheets(1) box = InputBox("Укажите номер БЕ", "_", "1200") If box <> "" Then For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row If (Left(Cells(i, 1), 4) <> "Z_BW") _ And (Left(Cells(i, 1), 2) <> "Y_") _ And (Left(Cells(i, 1), 3) <> "ZSA") _ Then Cells(i, 1) = Cells(i, 1) & "_" & box Next End If End With End Sub |