多資料匯整成在同data中

返回列表下一主題上一主題發帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2010-12-2 16:06 | 顯示全部帖子

看不出來月份是哪一欄，如何比對。
你目前是全部匯入。全部匯入不要循環！

Private Sub CommandButton1_Click() '匯整
With Sheets("A")
a = .Range(.[d7], .[w65536].End(3))
With Sheets("B")
b = .Range(.[d7], .[w65536].End(3))
End With
End With
With Sheets("DATA")
.[d7].Resize(UBound(a), UBound(a, 2)) = a
.[d65536].End(3)(2, 1).Resize(UBound(b), UBound(b, 2)) = b
End With
End Sub

複製代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-12-3 14:18 | 顯示全部帖子

問題1:大大的Next 為什麼沒有加S
不一定要加S，程式自己會知道Next什麼，以前有人認為加上去程式才不會搞錯，怎麼可能搞錯。實際測試多層循環時，不加跑得比加上的更順暢。

問題2. CurrentRegion 與 Offset 是什麼意思???
CurrentRegion是一個連續資料的範圍，如你的a1:g100有資料，那麼[a1].CurrentRegion就是[a1:g100]
Offset是位移，CurrentRegion.Offset(1)就是把這個範圍向下位移一列，通常為了避開標題列。
Rows.Count 顧名思意當然是指列的總數，通常直接用65536。

TOP

oobird