UC知道VB高手请进，多表简单内容合并的宏?
来源：百度知道 编辑：UC知道 时间：2024/06/22 01:27:12
我把别人的宏乱改了一下，但不好用
Sub 合并()
Dim x%, y%, sh As Worksheet, i%
Application.ScreenUpdating = 0
For Each sh In Sheets
If sh.Name <> "汇总表" Then
y = sh.Range("a1").End(xlDown).Row
For i = 1 To y
x = Range("a65536").End(xlUp).Row + 1
sh.Rows(i).Copy Range("a" & x)
Next i
End If
Next sh
Application.ScreenUpdating = 1
End Sub
请高人指点
我只是简单的将看到的内容一行挨一行的向下合并，合并在“汇总表”上，后面有很多的表格，格式都一样的！
Sub 合并()
Dim x%, y%, sh As Worksheet, i%
Application.ScreenUpdating = 0
For Each sh In Sheets
If sh.Name <> "汇总表" Then
y = sh.Range("a1").End(xlDown).Row
For i = 1 To y
x = Range("a65536").End(xlUp).Row + 1
sh.Rows(i).Copy Range("a" & x)
Next i
End If
Next sh
Application.ScreenUpdating = 1
End Sub
请高人指点
我只是简单的将看到的内容一行挨一行的向下合并，合并在“汇总表”上，后面有很多的表格，格式都一样的！
我也写了个类似的宏，功能是合并当前工作簿下的所有工作表。
Sub 合并()
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
End Sub
首先统计出当前工作簿下有几张工作表，
如果工作表名不等于当前活动工作表名，
则将该表的已使用单元格复制到当前活动工作表。
我试验过了，你的这个宏运行是正常的阿，还有什么问题呢？
欢迎Baidu Hi我，多交流阿。