VBA按名称查找列，如果超出一定范围，则需要更新引用值

Sub FindAndReplace()
    Dim searchRange As Range
    Dim foundCell As Range
    Dim columnName As String
    Dim updateValue As String
    
    ' 设置搜索范围
    Set searchRange = Sheet1.Range("A1:Z100")
    
    ' 设置要查找的列名和更新的值
    columnName = "ColumnName"
    updateValue = "NewValue"
    
    ' 在搜索范围内查找列名
    Set foundCell = searchRange.Find(What:=columnName, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了列名，则更新引用值
    If Not foundCell Is Nothing Then
        foundCell.Offset(1, 0).Value = updateValue
    Else
        MsgBox "未找到列名：" & columnName
    End If
End Sub