如何创建Excel宏：定位指定表头列、合并单元格并设置填充色？

以下是满足需求的VBA代码，可直接在Excel中运行：

Sub FormatLocationSection()
    Dim targetSheet As Worksheet
    Dim placeCol As Integer, addressCol As Integer
    Dim mergeArea As Range
    
    ' 指定操作的工作表，可替换为具体表名如Sheets("Data")
    Set targetSheet = ActiveSheet
    
    ' 查找表头行（此处假设表头在第3行，按需修改）中的目标列
    On Error Resume Next
    placeCol = targetSheet.Rows(3).Find(What:="place", LookIn:=xlValues, LookAt:=xlPart).Column
    addressCol = targetSheet.Rows(3).Find(What:="place_address", LookIn:=xlValues, LookAt:=xlPart).Column
    On Error GoTo 0
    
    ' 校验目标列是否找到
    If placeCol = 0 Or addressCol = 0 Then
        MsgBox "未找到目标列，请检查表头是否包含'place'和'place_address'"
        Exit Sub
    End If
    
    ' 确保两列顺序正确，保证合并区域连续
    If placeCol > addressCol Then
        Dim temp As Integer
        temp = placeCol
        placeCol = addressCol
        addressCol = temp
    End If
    
    ' 合并两列上方的两行单元格（对应表头行上方的第1、2行）
    Set mergeArea = targetSheet.Range(targetSheet.Cells(1, placeCol), targetSheet.Cells(2, addressCol))
    mergeArea.Merge
    mergeArea.Value = "Location"
    ' 设置标题居中对齐（可选优化）
    mergeArea.HorizontalAlignment = xlCenter
    mergeArea.VerticalAlignment = xlCenter
    
    ' 应用指定填充颜色
    With mergeArea.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
End Sub

使用说明： #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器；
2. 右键点击工程窗口中的工作簿名称 → 插入 → 模块；
3. 将上述代码粘贴到模块中，根据实际情况修改表头行号（比如表头在第2行，就把Rows(3)改为Rows(2)，合并区域对应调整为表头行上方的两行）；
4. 按下F5或点击运行按钮执行宏。

注意事项： #

• 代码使用模糊匹配（LookAt:=xlPart），只要表头单元格内容包含关键词即可识别；
• 若两列顺序相反，代码会自动调整，确保合并区域为连续范围；
• 如需操作特定工作表，将ActiveSheet替换为Sheets("你的工作表名称")即可。

内容的提问来源于stack exchange，提问作者InnaG