如何讓總表讀取其他工作表的資料

3^# 跳轉到 »

發表於 2016-10-23 14:16 | 只看該作者

回復 2# GBKEE

感謝G大出馬解決問題，我自行修改了一下如下，正式的寫法還要請G大幫忙，如下：

因為A欄是日期，所以我用巨集錄下了修改所以竟變成了，第14~16行是巨集錄製的。

Dim Ar As Variant, E As Variant
Sheets("總表").UsedRange.Offset(1).Clear '**清除總表中舊有資料
For Each E In Sheets
If E.Name <> "總表" Then
If IsEmpty(Ar) Then ReDim Ar(1 To 1) Else ReDim Preserve Ar(1 To UBound(Ar) + 1)
Ar(UBound(Ar)) = E.UsedRange.Offset(1)
End If
Next
For Each E In Ar
With Sheets("總表").Range("A" & Rows.Count).End(xlUp).Offset(1)
.Resize(UBound(E), UBound(E, 2)) = E
End With
Next
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormatLocal = "[$-404]e/m/d"

複製代碼

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

2^#

發表於 2016-10-23 13:29 | 只看該作者

回復 1# av8d
試試看

Option Explicit
Sub Ex()
Dim Ar As Variant, E As Variant
Sheets("總表").UsedRange.Offset(1).Clear '**清除總表中舊有資料
For Each E In Sheets
If E.Name <> "總表" Then
If IsEmpty(Ar) Then ReDim Ar(1 To 1) Else ReDim Preserve Ar(1 To UBound(Ar) + 1)
Ar(UBound(Ar)) = E.UsedRange.Offset(1)
End If
Next
For Each E In Ar
With Sheets("總表").Range("A" & Rows.Count).End(xlUp).Offset(1)
.Resize(UBound(E), UBound(E, 2)) = E
End With
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。