Мне нужно изменить диапазон динамической ячейки в течение ... каждого цикла

Question

Мне нужно найти строку в листе Excel.Давайте назовем это "size".Затем я хочу добавить новый столбец слева от него.

Я построил цикл For … Each, который находит строку и добавляет столбец слева от нее.Проблема в том, что мне нужно объявить диапазон, и я не могу изменить его динамически на тот же диапазон столбца расположения строки.Вот код:

    Dim myRange As Range
    Dim myCell As Range
    Dim newcolumn As Range

    Set newcolumn = Range("A:A")
    Set myRange = Range("A1:cc1")

    For Each myCell In myRange
        If myCell = "size" Then
            newcolumn = myCell
            newcolumn.EntireColumn.Insert
        End If
    Next myCell
End Sub

Он находит строку и добавляет столбец с левой стороны от расположенного столбца.Как добавить столбец слева от диапазона myCell?

Answer 1

Я думаю, должен делать то, что вы хотите:

Dim myRange As Range
Dim myCell As Range
Dim skip As Boolean

Set myRange = Range("A1:cc1")

skip = False

For Each myCell In myRange
    If myCell = "size" And Not skip Then
        myCell.EntireColumn.Insert shift:=xlToRight
        skip = True
    Else
        skip = False
    End If

Next myCell

Код перебирает все ячейки в myRange, и когда он находит ячейку с "size", он добавляет новый столбец слева от этой ячейки.