excel - 使用 Excel VBA 搜索列标题并插入新列

Question

我有一个定期更新的电子表格。因此，列标题位置会定期更改。例如。今天“用户名”是 K 列，但明天“用户名”可能是 L 列。我需要在“用户名”右侧添加一个新列，但它发生变化的地方我无法将其称为单元格/列引用。

到目前为止我已经:

Dim rngUsernameHeader As Range
Dim rngHeaders As Range
Set rngHeaders = Range("1:1") 'Looks in entire first row.
Set rngUsernameHeader = rngHeaders.Find("Username")

当我在其右侧添加新列时，我选择了该行，但它会返回到单元格/列引用...

Columns("K:K").Select
Selection.Insert Shift:=xlToRight
Range("K1").Select
ActiveCell.FormulaR1C1 = "Role"

如何使用宏执行此步骤？

编辑:我认为需要为该列提供标题名称并开始用数据填充行 - 每次我都会开始单元格引用，我想尽可能避免这种情况。

提前非常感谢。

Answer 1

怎么样:

Sub qwerty()
    Dim rngUsernameHeader As Range
    Dim rngHeaders As Range

    Set rngHeaders = Range("1:1") 'Looks in entire first row.
    Set rngUsernameHeader = rngHeaders.Find(what:="Username", After:=Cells(1, 1))

    rngUsernameHeader.Offset(0, 1).EntireColumn.Insert
    rngUsernameHeader.Offset(0, 1).Value = "role"
End Sub