Как использовать переменную для копирования всего содержимого столбца в VBA?

Question

Я присваиваю "c" в качестве переменной и использую ее в выражении For. Если Z1 = B1 или C1, я хочу скопировать весь столбец.

Я пытался:

Dim c As Range
Dim name As String

name = Range("Z1").Value

For Each c In Range("B1:C1").Cells
If c.Text = name Then
Columns.Range(c).Copy

Но, похоже, это не работает.

Как мне работать с переменными, которые я ранее назначил в столбцах / диапазоне

Answer 1

Очень, очень близко:

заменить:

Columns.Range(c).Copy

на:

c.EntireColumn.Copy

РЕДАКТИРОВАТЬ # 1:

Как только мы нашли правильный столбец, мы можем скопировать любую его часть. Скажем, мы хотим скопировать строки с 17 по 23:

Dim kolumn As Long
kolumn = c.Column
Range(Cells(17, kolumn), Cells(23, kolumn)).Copy