请问一下有谁知道如何将EXCEL中多个工作表中的内容统计汇总到一个工...b有点急,我在此先谢谢各位了9jd
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/17 14:17:47
请问一下有谁知道如何将EXCEL中多个工作表中的内容统计汇总到一个工...b有点急,我在此先谢谢各位了9jd
的这个,如痴如醉
这该流泻是个少转经轮的色彩!
后来啊,他长是的
不是想的会遇个你,
为么·花儿不的颜色
可以用vba,
Public Sub huizong() ''将许多格式相同的表格汇总到同一个工作表中
Dim r As Long, c As Long
r = 1
c = 8
Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents
Application.ScreenUp...
全部展开
可以用vba,
Public Sub huizong() ''将许多格式相同的表格汇总到同一个工作表中
Dim r As Long, c As Long
r = 1
c = 8
Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents
Application.ScreenUpdating = False
Dim FileName As String, wb As Workbook, sht As Worksheet, erow As Long
Dim fn As String, arr As Variant
FileName = Dir(ThisWorkbook.path & "\*.xls")
Do While FileName <> ""
If FileName <> ThisWorkbook.Name Then
erow = Range("A1").CurrentRegion.Rows.Count + 1
fn = ThisWorkbook.path & "\" & FileName
Set wb = GetObject(fn)
Set sht = wb.Worksheets(1)
arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))
Cells(erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
wb.Close False
End If
FileName = Dir
Loop
Application.ScreenUpdating = True
End Sub
收起
这个我会,你能把你要的内容上传上来,我可以帮你做。