excel - シート内のすべての列について、セル内の値を検索し、その列を選択して、その列の前に列を挿入します

Question

私は次のことを実行するマクロを書き込もうとしていました：

ワークブックのすべてのシートについて：1。列を選択します2.選択した列で行番号5の特定の値を検索します3.その値が別のセル（A1）と一致する場合は、選択した列の前に2つの列を挿入します

1. シートのすべての列に対して同じことを実行します。（つまり、何かがある列には、潜在的な列が無限にあることを私は知っています）。

答えに向けた助けや方向性は、役立つ以上のものです。

Answer 1

これはあなたが求めているものを手に入れるでしょう、と私は思います。

Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets

    With wks
        Dim intCol As Integer, intCnt As Integer

        intCol = .UsedRange.Columns.Count

        For intCnt = intCol To 2 Step -1 'assumes you ignore col A since your match value is there
            If .Cells(5, intCnt) = .Cells(1, 1) Then
                .Range(.Cells(1, intCnt), .Cells(1, intCnt + 1)).EntireColumn.Insert Shift:=xlToLeft
            End If
        Next

    End With

Next