Excel 怎么让一个表格每一行的数据都单独复制到另一个表格中

Posted 2023-03-13

一个表格怎么让A1-G1的数据复制到第二个表格指定地方，然后在从A2-G2继续复制到第二个表格，A3-G3....
不知道我表达的清不清楚，就是让第一个表格每一行的数据都单独成一个表格，这个表格已经做好，只要把第一个表格每行的数据填入就可以了
有没有人帮帮忙啊

建立一个工作簿包含两个工作表（数据表、1）保存（必须保存）

在工作表1中第一行粘贴列标题

A2=INDIRECT("数据表!"&CHAR(64+COLUMN(A1))&MID(CELL("filename"),FIND("]",CELL("filename"))+1,256)+1)向右复制

复制工作表1，分别改名为2、3、4、保存即可。

参考技术A 一个表格的表格名假设是SHEET1

第二个表格某单元格输入公式
=Sheet1!A1&Sheet1!B1&Sheet1!C1&Sheet1!D1&Sheet1!E1&Sheet1!F1&Sheet1!G1
下拉复制公式
或
如果A至G列的内容是文本内容不是公式和数字,公式可以用
=PHONETIC(Sheet1!A1:G1)
下拉复制公式 参考技术B 复制A1-G1, 粘贴到第二个表格指定的地方(不要直接粘贴, 菜单栏上有, 在粘贴图标的右边, 一个倒三角号, 点它, 选择"粘贴为链接"), 试试. 参考技术C 这个要用到VBA
Sub copy()
'复制一行致另一工作表
intRow = Sheets("Sheet1").Range("c65536").End(xlUp).Row
For i = 1 To intRow
Sheets("Sheet1").Select
If Worksheets.Count < i + 1 Then
Sheets.Add
Application.CutCopyMode = False
Sheets(1).Move After:=Worksheets(Worksheets.Count)

End If

Sheets("Sheet1").Select
Rows(i & ":" & i).Select
Selection.copy

Sheets(i + 1).Select
Rows("1:1").Select
ActiveSheet.Paste

Next i

End Sub 参考技术D 要VBA才能完成。。。