excel2010 同个工作簿，多个工作表内容合并为一个工作表

答案:3 悬赏:40 手机版

解决时间 2021-03-17 17:35

提问者网友：几叶到寒
2021-03-16 17:42

最佳答案

五星知识达人网友：纵马山川剑自提
2021-03-16 18:55

按ALT+F11，插入模块把下面的代码复制进去。
Sub 合并各工作表内容()
sp = InputBox(2)
If sp = "" Then
sp = 0
End If
st = InputBox(2)
If st = "" Then
st = 2
End If
Sheets(1).Select
Sheets.Add

If st > 1 Then
Sheets(2).Select
Rows("1:" & CStr(st - 1)).Select
Selection.Copy
Sheets(1).Select
Range("A1").Select
ActiveSheet.Paste
y = st - 1
End If

For i = 2 To Sheets.Count
Sheets(i).Select
For v = 1 To 256
zd = Cells(65535, v).End(xlUp).Row
If zd > x Then
x = zd
End If
Next v
If y + x - st + 1 + sp > 65536 Then
MsgBox "内容太多，仅合并前" & i - 2 & "个表的内容，请把其它表复制到新工作薄里再用此程序合并！"
Else:

Rows(st & ":" & x).Select
Selection.Copy
Sheets(1).Select
Range("A" & CStr(y + 1)).Select
ActiveSheet.Paste

Sheets(i).Select
Range("A1").Select '取消单元格被全选状态。
Application.CutCopyMode = False '忘掉复制的内容。
End If

y = y + x - st + 1 + sp
x = 0
Next i
Sheets(1).Select
Range("A1").Select '光标移至A1。
MsgBox "这就是合并后的表，请命名！"
End Sub

全部回答

1楼网友：有你哪都是故乡
2021-03-16 19:51

复制到一张表上就好了，再调整一下就行了

2楼网友：神也偏爱
2021-03-16 19:34

应该没有的，只要合并单元格。你现在只能够复制与粘贴了

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息