根据行标题-VBA

Question

我只是尝试根据标题搜索特定列，并在其前面插入一个新列（因此在列的左侧）。现在，我的代码搜索甚至包含我的搜索的所有列，并在左侧插入新的列2列。例如，我想搜索只显示Paid to Date的标题，但它甚至会在Commission Paid to Date等旁边插入一列。

Sheets(NewSheet).Select 
Set ColHeaders = Range("A4:CD4").Find("Paid to Date") 
If ColHeaders Is Nothing Then 
    MsgBox "Paid to Date Column was not found." 
    Exit Sub 
Else 
    Columns(ColHeaders.Column).Offset(0, -1).Insert 
End If

Answer 1

在确认解决方案的时间内，这似乎在评论中得到了解答。

• 删除Offset，因为它将在默认情况下插入列中
• Read the documentation for Find here并将参数LookAt指定为xlWhole（值为1，as per enumeration）