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

2024-10-30 13:30:26

有5个网友回答

网友（1）：

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

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

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

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

网友（2）：

一个表格的表格名假设是SHEET1

第二个表格某单元格输入公式
=Sheet1!A1&Sheet1!B1&Sheet1!C1&Sheet1!D1&Sheet1!E1&Sheet1!F1&Sheet1!G1
下拉复制公式
或
如果A至G列的内容是文本内容不是公式和数字,公式可以用
=PHONETIC(Sheet1!A1:G1)
下拉复制公式

网友（3）：

复制A1-G1, 粘贴到第二个表格指定的地方(不要直接粘贴, 菜单栏上有, 在粘贴图标的右边, 一个倒三角号, 点它, 选择"粘贴为链接"), 试试.

网友（4）：

这个要用到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

网友（5）：

要VBA才能完成。。。