Доброго дня.
Частично вопрос относится в этой теме: “Почему ошибка "Compile error. Object required", VBA, Error”
Помогите пожалуйста разобраться вот в таком коде. Зада "начать" выделять диапазон в соответствии со значениями строки и колонки. Файл прикрепил. Синем цветов (a, b) соответственно определяемая строка и колонка.
Спасибо большое.
Код |
---|
Sub test() Dim lastrow As Long Dim c As Range Dim rng As Range With ThisWorkbook.Worksheets("Sheet2") lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For Each c In .Range("A1:A" & lastrow) If (c.Text) = "a" Then 'find this value in row If rng Is Nothing Then Set rng = .Range("A" & c.Row).Resize(, 12) '12 = L column End If End If Next c End With If Not rng Is Nothing Then rng.Select Range(Selection, Selection.End(xlDown)).Select 'now selected all rows till the end of worksheet, but need to select viseble row End Sub |