合并工作表的问题

祁连山庄 · 发表于 2022-12-28 17:14

想把表一和表二的数据合并到合并表格里，我的编程代码出现问题；哪位大神，帮我调试一下
Sub 合并()

Dim sh As Worksheet

Dim i As Integer

Sheets('合并').Range('A2:L65536').ClearContents
For Each sh In Worksheets

If sh.Name <> '合并' Then

i = sh.UsedRange.Rows.Count

Sheets('合并').Columns(1).Cells(Sheets('合并').Columns(1).Cells.Count). _

End(xlUp).Offset(1).Resize(i - 1, 7) = sh.Range('a2').Resize(i - 1, 7).Value

End If

Next

End Sub

dambcer · 发表于 2022-12-28 20:40

…………………………………………

sunya_0529 · 发表于 2022-12-28 20:55

Sub 合并()
Dim sh As Worksheet
Dim i As Integer
Application.ScreenUpdating = False '关闭屏幕刷新
With Sheets("合并")
.Range("A2:L65536").Clear
For Each sh In Worksheets
If sh.Name <> "合并" Then
'将sh中的数据复制并粘贴到“合并”表中
sh.Range("A2:L" & sh.[A2].End(xlDown).Row).Copy .[A65536].End(xlUp).Offset(1, 0)
End If
Next
End With
Application.CutCopyMode = xlNone '取消剪切复制模式
Application.ScreenUpdating = True '打开屏幕刷新
End Sub

复制代码

3190496160 · 发表于 2022-12-29 10:52

代码中对文本的引用所用的引号都是英文状态下的双引号，而不是你目前的单引号，你的代码最大的问题就在这儿

祁连山庄 · 发表于 2022-12-29 13:01

多谢各位！高手就是高手！

祁连山庄 · 发表于 2022-12-29 13:14

sunya_0529 发表于 2022-12-28 20:55

可以再按日期排下虚吗

祁连山庄 · 发表于 2022-12-29 13:15

可以合并后，再按日期排下顺序吗？

sunya_0529 · 发表于 2022-12-29 16:34

祁连山庄发表于 2022-12-29 13:15
可以合并后，再按日期排下顺序吗？

祁连山庄 · 发表于 2022-12-30 11:50

多谢！高手就是高手

		自动登录	找回密码
密码			免费注册

[求助] 合并工作表的问题