合并工作表的问题

祁连山庄

想把表一和表二的数据合并到合并表格里，我的编程代码出现问题；哪位大神，帮我调试一下
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

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

sunya_0529

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

复制代码

3190496160

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

祁连山庄

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

祁连山庄

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

可以再按日期排下虚吗

祁连山庄

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

sunya_0529

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

祁连山庄

多谢！高手就是高手