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

Sub InsertNewColumn()
    Dim searchValue As String
    Dim searchRange As Range
    Dim foundCell As Range
    Dim newColumn As Range
    
    '获取要搜索的列标题
    searchValue = InputBox("请输入要搜索的列标题：")
    
    '设置搜索范围为第一行
    Set searchRange = Rows(1)
    
    '在搜索范围中查找列标题
    Set foundCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    '如果找到列标题，则插入新列
    If Not foundCell Is Nothing Then
        foundCell.EntireColumn.Insert
        Set newColumn = foundCell.EntireColumn
        newColumn.Value = "新列标题"
    Else
        MsgBox "未找到指定的列标题。"
    End If
End Sub