发布网友
共2个回答
热心网友
在新建一个工作表,按alt+F11,视图--代码窗口,粘贴一下代码
Sub 数据集中()
Sheets(1).Select
For i = 12 To ThisWorkbook.Sheets.Count
Sheets(i).UsedRange.Copy
Sheets(1).[A65536].End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
end sub
然后运行。OK
热心网友
这个好办,你拿个样表给我,我弄好给你
这个还要用VBA?杀鸡用牛刀