|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub tet()
- Dim r%, i%
- Dim ws As Worksheet
- Dim ws0 As Worksheet
- With Worksheets("sheet1")
- .UsedRange.Offset(1, 0).Clear
- End With
- Set ws0 = Worksheets("sheet1")
- For Each ws In Worksheets
- If ws.Name <> "Sheet1" Then
- With ws
- With ws0
- r0 = .Cells(.Rows.Count, 1).End(xlUp).Row
- End With
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- .Range("a2:e" & r).Copy ws0.Cells(r0 + 1, 2)
- With ws0
- .Cells(r0 + 1, 1).Resize(r - 1, 1) = ws.Name
- End With
- End With
- End If
- Next
- End Sub
复制代码 |
|