Excel VBA将值添加到与特定标题匹配的整个列中

Sub AddValueToColumn()
    Dim ws As Worksheet
    Dim col As Range
    Dim header As Range
    Dim valueToAdd As Variant
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置标题行
    Set header = ws.Rows(1)
    
    ' 设置要添加的值
    valueToAdd = "New Value"
    
    ' 遍历每一列
    For Each col In header.Cells
        ' 检查标题是否匹配
        If col.Value = "特定标题" Then
            ' 获取整个列的范围
            Dim columnRange As Range
            Set columnRange = ws.Range(col.Offset(1), ws.Cells(ws.Rows.Count, col.Column).End(xlUp))
            
            ' 将值添加到整个列中
            columnRange.Value = valueToAdd
        End If
    Next col
End Sub