excel - 对于工作表中的每一列，在单元格中搜索一个值，然后选择该列并在该列之前插入一列

Question

我试图编写一个执行以下操作的宏:

对于工作簿中的每张工作表:1. 选择一列2. 在所选列中搜索第 5 行中的特定值3. 如果该值与另一个单元格 (A1) 匹配，则在所选列之前插入两列

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