使用VBA将多行excel记录合并为表格

Sub 合并记录为表格()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim tableRange As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 设置要合并的范围（从第2行开始，第1行为表头）
    Set tableRange = ws.Range("A2:D" & lastRow) ' 将"A2:D"替换为实际的列范围
    
    ' 合并记录为表格
    ws.ListObjects.Add(xlSrcRange, tableRange, , xlYes).Name = "Table1" ' 将"Table1"替换为实际的表格名称
End Sub