基于列标题填充列的Excel VBA循环

Sub FillColumnsBasedOnHeader()
    Dim ws As Worksheet
    Dim headerRow As Range
    Dim dataRange As Range
    Dim cell As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置列标题所在的行范围
    Set headerRow = ws.Range("A1").EntireRow
    
    ' 设置数据范围，假设数据从第2行开始，第1列到第3列
    Set dataRange = ws.Range("A2:C" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
    
    ' 循环遍历每一列标题
    For Each cell In headerRow
        ' 根据列标题确定需要填充的列
        Select Case cell.Value
            Case "列标题1"
                ' 填充列标题1的逻辑
                ' 可以使用cell.Offset(1, 0)来获取当前列标题下方的单元格
                ' 进行相应的数据填充操作
            Case "列标题2"
                ' 填充列标题2的逻辑
            Case "列标题3"
                ' 填充列标题3的逻辑
            ' 可以根据需要继续添加其他列标题的处理逻辑
        End Select
    Next cell
End Sub