您可以使用Excel的VBA编程语言来实现将每一行的多个数据填入指定的相应表格中。以下是一个示例代码:

Sub FillDataToTable()
    Dim srcSheet As Worksheet
    Dim destSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set srcSheet = ThisWorkbook.Sheets("源表格") '将"源表格"替换为您的源表格名称
    Set destSheet = ThisWorkbook.Sheets("目标表格") '将"目标表格"替换为您的目标表格名称
    
    lastRow = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row '获取源表格中最后一行的行号
    
    For i = 2 To lastRow '从第2行开始,第1行为表头
        destSheet.Cells(i - 1, 1).Value = srcSheet.Cells(i, 1).Value '将源表格中第i行的第1列数据填入目标表格中第i-1行的第1列
        destSheet.Cells(i - 1, 2).Value = srcSheet.Cells(i, 2).Value '将源表格中第i行的第2列数据填入目标表格中第i-1行的第2列
        '继续根据需要填入其他列的数据
    Next i
End Sub

请根据您的实际情况修改代码中的表格名称和列数,并将代码粘贴到Excel的VBA编辑器中(按下Alt+F11打开VBA编辑器)。然后按下F5运行代码即可将每一行的多个数据填入指定的相应表格中。


原文地址: https://www.cveoy.top/t/topic/jevt 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录