使用VBA将多个字段添加到一条记录，同时将类别添加到每个字段

Sub AddFieldsAndCategories()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim category As String
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 设置类别
    category = "类别名称"
    
    ' 循环遍历每个字段
    For i = 2 To lastRow
        ' 添加字段
        ws.Cells(i, "A").Value = "字段值"
        
        ' 添加类别
        ws.Cells(i, "B").Value = category
    Next i
End Sub