excel实现根据各行数据生成sheet并填入每列数据到指定位置

你可以使用 VBA 宏来实现这个功能。以下是一个示例代码：

Sub GenerateSheets()
    Dim rng As Range
    Dim cell As Range
    Dim rowCounter As Long
    Dim sheetName As String
    Dim sheet As Worksheet
    
    Set rng = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row) '获取以A列为起点的所有行数据
    
    For Each cell In rng
        rowCounter = rowCounter + 1 '计数器
        sheetName = "Sheet " & rowCounter '生成新的工作表名称
        
        '创建新的工作表
        Set sheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        sheet.Name = sheetName
        
        '将每列数据填充到指定位置
        sheet.Range("A1").Value = cell.Value
        sheet.Range("B1").Value = cell.Offset(0, 1).Value
        sheet.Range("C1").Value = cell.Offset(0, 2).Value
        '...
    Next cell
End Sub

这个代码将以 A 列为起点的所有行数据生成新的工作表，并将每列数据填充到指定位置。你可以根据需求修改代码中的行列数和起点。