多資料匯整成在同data中

DEAR 大大們

   小弟又來請教了, 問題是需要將多活頁的資料,匯到同一個data中,如附件概述
   1.  附件中sheet A B兩個資料總合在DATA中 (我的方式是一筆一筆貼,在少筆數的處理上還OK, 但我的筆數為列大於10000  欄約 15 - 25 )
                                                                        有沒有比較好的寫法
   2. 在匯入時需要將SHEET A B 欄頭的月份與DATA欄頭月份需要一樣才能匯入  (小弟還未撰寫 ,但是會用IF的放式做判別後,相同才執行匯入動作)

多資料匯整成在同data中.zip (989.78 KB)

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

2^#

發表於 2010-12-2 17:15 | 顯示全部帖子

本帖最後由 hugh0620 於 2010-12-2 17:30 編輯

回復 2# oobird

大大 L6到W6是日期的資料 (201001-201012)

      另外在程式碼的部份~ 有不了解的大地方
   [d65536].End(3)(2, 1).Resize(UBound(a), UBound(a, 2)) = a  程式碼中的
   1.  End(3)(2, 1) 是什麼意思?  (end內的常數意思為何??)  (因為有看過大大們在使用,但是自己就是無法徹底了解,也就不會使用)
      2.  Resize 的使用方法 ?       (有查過資料說明在"移動表格或調整表格大小"  ,感覺就很奇怪)
      3.  另外一個offset的用法    (我看了大部份程式碼大部份用在資料最旁邊下一格是空格,將資料填寫進去)
      4.  在大大撰寫中並會寫copy或past等指令 , 就可把資料貼至到另一個data中 (不甚明白)

      以上,希望大大能解惑, 讓小弟能看的懂大大們在寫些什麼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

3^#

發表於 2010-12-3 11:16 | 顯示全部帖子

回復 4# GBKEE

謝謝大大詳細的程式碼說明~ 小弟已經能夠對END的用法清楚了解~

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

4^#

發表於 2010-12-3 11:33 | 顯示全部帖子

回復 5# GBKEE

Dear 大大
您寫的方式, 想請你幫忙指較我所理解的對不對

1. Dim S As Worksheet    將S指為工作頁的變數
   2. For Each S In Sheets(Array("A", "B"))  ~  Next       使用陣列將中每一個SHEET 資料放在S這個SHEET
                                                                                       問題1:大大的Next 為什麼沒有加S 是因為陣列的原因嘛???
3. S.Range("D6").CurrentRegion.Offset(1).Copy       問題2. CurrentRegion 與 Offset 是什麼意思???
4. Sheets("DATA").Range("D" & Rows.Count).End(xlUp).Cells(2)
                     問題3. Rows.Count 的意思???

TOP