|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub test()
Dim i&, j&
Dim arr
Cells.ClearContents
For i = 1 To Sheets.Count
If InStr(Sheets(i).Name, "表") Then
With Sheets(i)
arr = .UsedRange.Offset(1)
If Application.CountA(Sheets(i).Cells) = 0 Then Exit For
With Sheets("合并")
j = .[a65536].End(3).Row
If j < 2 Then
j = 2
.Range("a" & j).Resize(UBound(arr), UBound(arr, 2)) = arr
Else
j = j + 1
.Range("a" & j).Resize(UBound(arr), UBound(arr, 2)) = arr
End If
End With
End With
End If
Next
End Sub
请楼主参考。 |
|