怎么把一个EXCEL中的每一行的多个数据填入指定的相应表格中
您可以使用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 著作权归作者所有。请勿转载和采集!