excel多个工作表数据汇总?

发布网友

我来回答

共1个回答

热心网友

新建一个汇总表

Sub 复制到汇总()
Dim Brr(1 To 20, 1 To 1)
Dim l As Integer
Dim j As Integer
For l = 1 To Sheets.Count
Brr(l, 1) = Sheets(l).Name
Next
For j = 2 To Sheets.Count
Sheets(Brr(j, 1)).Select
EndH = Range("e65536").End(xlUp).Row
For i = EndH To 1 Step -1
XX = Range("A" & i).Value
If XX <> "" Then
m = m + 1
Range("A" & i).EntireRow.Copy Sheets("汇总").Range("a" & m)
End If
Next
Next
End Sub

热心网友

新建一个汇总表

Sub 复制到汇总()
Dim Brr(1 To 20, 1 To 1)
Dim l As Integer
Dim j As Integer
For l = 1 To Sheets.Count
Brr(l, 1) = Sheets(l).Name
Next
For j = 2 To Sheets.Count
Sheets(Brr(j, 1)).Select
EndH = Range("e65536").End(xlUp).Row
For i = EndH To 1 Step -1
XX = Range("A" & i).Value
If XX <> "" Then
m = m + 1
Range("A" & i).EntireRow.Copy Sheets("汇总").Range("a" & m)
End If
Next
Next
End Sub

热心网友

新建一个汇总表

Sub 复制到汇总()
Dim Brr(1 To 20, 1 To 1)
Dim l As Integer
Dim j As Integer
For l = 1 To Sheets.Count
Brr(l, 1) = Sheets(l).Name
Next
For j = 2 To Sheets.Count
Sheets(Brr(j, 1)).Select
EndH = Range("e65536").End(xlUp).Row
For i = EndH To 1 Step -1
XX = Range("A" & i).Value
If XX <> "" Then
m = m + 1
Range("A" & i).EntireRow.Copy Sheets("汇总").Range("a" & m)
End If
Next
Next
End Sub