Я хочу перебрать все ячейки в именованном столбце набора строк, выбранных пользователем. Однако я не знаю, как этого добиться.
Именованный столбец в выборе строк
Я использовал код удара, чтобы получить выбранный пользователем диапазон / строки, но я не знаю, как перейти оттуда, чтобы получить ячейки в названном столбце в этом диапазоне.
Set rng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
Вы можете использовать Intersect:
Sub Test()
Dim rng1 As Range, rng2 As Range, cl As Range
With ThisWorkbook.Sheets("Sheet1") 'Whichever sheet your working on
Set rng1 = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
Set rng2 = Intersect(rng1, .Range("COLE")) 'Whichever name your named range is.
For Each cl In rng2
'Do something
Next cl
End With
End Sub
Обратите внимание, что после отмены поля ввода это вызовет ошибку, которую вы можете решить с помощью некоторой обработки ошибок.
Вот два способа перебрать каждую ячейку в диапазоне rng и доказать, что мы посетили каждую из них.
Dim r as Range
For Each r in rng
r = "visited"
Next r
А также
Dim i As Long
For i = 1 To rng.Cells.Count
rng.Cells(i) = "visited"
Next i
