find标题后在右侧插入新列

如何在特定标题列的右侧插入3个新列。 以下是我的初始代码：

Sub InsertColumn() Dim DischargeDate As Range Set DischargeDate = Range("A1:BV1").Find("DISCHARGE DATE") If DischargeDate Is Nothing Then MsgBox "DISCHARGE DATE column was not found." Exit Sub End If ' If DISCHARGE DATE was found in the column "AD", insert new column on this range example: ' Range("AE:AG").EntireColumn.Insert 

– >应该是我在这里使用的范围，因为DISCHARGE DATE有时不在“AD”

 End Sub 

我希望我的问题很清楚。 谢谢！

Answer 1

尝试这个：

 Sub InsertColumn() Dim DischargeDate As Range Set DischargeDate = Range("A1:BV1").Find("DISCHARGE DATE") If DischargeDate Is Nothing Then MsgBox "DISCHARGE DATE column was not found." Exit Sub Else Columns(DischargeDate.Column).Offset(, 1).Resize(, 3).Insert End If End Sub