帮忙看看这个代码有没有问题？怎么每个工作表的最后一列都汇总不到？哪里出错了？

唄げ兿Ξ

Sub 汇总数据()
    Sheets.Add
    With ActiveSheet
        .Name = "汇总表" & Format(Now, "hhmmss")
        For Each s In ThisWorkbook.Sheets
            s.UsedRange.Copy.Cells(.UsedRange.Rows.Count + 1, 1)
        Next
    End With
End Sub

yqdaqinqin

Sub 汇总数据()
    Sheets.Add
    With ActiveSheet
        .Name = "汇总表" & Format(Now, "hhmmss")
    End With
        For Each s In ThisWorkbook.Sheets
            s.UsedRange.Copy.Cells(.UsedRange.Rows.Count + 1, 1)
        Next

End Sub

lpzxhjp

1. Sub 汇总数据()
   
2.     Sheets.Add
   
3.     With ActiveSheet
   
4.         .Name = "汇总表" & Format(Now, "hhmmss")
   
5.         For Each s In ThisWorkbook.Sheets
   
6.             s.UsedRange.Copy.Cells(.UsedRange.Row+.UsedRange.Rows.Count + 1, 1)
   
7.         Next
   
8.     End With
   
9. End Sub
   

复制代码

201228

代码不会，看高手吧