從多個分頁資料把合併到主頁 - Excel程式區

[分享] 從多個分頁資料把合併到主頁

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-8-2 19:30 | 顯示全部帖子

本帖最後由 GBKEE 於 2010-8-2 19:31 編輯

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

Public Sub refresh_all()
Dim Sh As Worksheet, R As Range, F As Range
With ActiveSheet
.[A1].CurrentRegion.Offset(1).Clear
For Each R In .[A1].CurrentRegion.Rows(1).Cells
For Each Sh In Sheets
If Sh.Name <> .Name Then
Set F = Sh.Rows(1).Find(R, LookIn:=xlValues, LookAt:=xlWhole)
Sh.Range(F.Offset(1), F.End(xlDown)).Copy .Cells(Rows.Count, R.Column).End(xlUp).Offset(1)
End If
Next
Next
End With
End Sub

複製代碼

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。