GBKEE

回復 1#把分頁資料合併到主頁的方法
單純把欄抄出,不做彙總. kimbal板主

1. Public Sub refresh_all()
   
2. Dim Sh As Worksheet, R As Range, F As Range
   
3. With ActiveSheet
   
4. .[A1].CurrentRegion.Offset(1).Clear
   
5. For Each R In .[A1].CurrentRegion.Rows(1).Cells
   
6. For Each Sh In Sheets
   
7. If Sh.Name <> .Name Then
   
8. Set F = Sh.Rows(1).Find(R, LookIn:=xlValues, LookAt:=xlWhole)
   
9. Sh.Range(F.Offset(1), F.End(xlDown)).Copy .Cells(Rows.Count, R.Column).End(xlUp).Offset(1)
   
10. End If
    
11. Next
    
12. Next
    
13. End With
    
14. End Sub

複製代碼