12
返回列表 上一主題 發帖

多資料匯整成在同data中

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2020-5-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-12-2 15:14 | 只看該作者

多資料匯整成在同data中

DEAR 大大們

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2010-12-2 16:06 | 只看該作者
看不出來月份是哪一欄，如何比對。
你目前是全部匯入。全部匯入不要循環！
  1. Private Sub CommandButton1_Click()  '匯整
  2. With Sheets("A")
  3. a = .Range(.[d7], .[w65536].End(3))
  4. With Sheets("B")
  5. b = .Range(.[d7], .[w65536].End(3))
  6. End With
  7. End With
  8. With Sheets("DATA")
  9. .[d7].Resize(UBound(a), UBound(a, 2)) = a
  10. .[d65536].End(3)(2, 1).Resize(UBound(b), UBound(b, 2)) = b
  11. End With
  12. End Sub
複製代碼

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2020-5-12 
3#
發表於 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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2010-12-2 19:41 | 只看該作者
回復 3# hugh0620
程式複製後 請選擇一空白的工作  執行看看
其他函數請多看說明多操作 應會運用自如
Sub Ex()
    MsgBox ActiveSheet.Range("C100").End(1)(2, 1).Address '
    MsgBox ActiveSheet.Range("C100").End(xlToLeft).Cells(2, 1).Address '
   
    MsgBox ActiveSheet.Range("C100").End(2)(2, 1).Address '
    MsgBox ActiveSheet.Range("C100").End(xlToRight).Cells(2, 1).Address '
   
    MsgBox ActiveSheet.Range("C100").End(3)(2, 1).Address '
    MsgBox ActiveSheet.Range("C100").End(xlUp).Cells(2, 1).Address '
   
    MsgBox ActiveSheet.Range("C100").End(4).Address
    MsgBox ActiveSheet.Range("C100").End(xlDown).Address '
'ActiveSheet.Range("C100").End(xlDown) 已到檔案底端 如指明-> 下一列位 .Cells(2, 1) 會產生錯誤
    MsgBox ActiveSheet.Range("C100").End(4)(2, 1).Address                     '<-產生錯誤
    MsgBox ActiveSheet.Range("C100").End(xlDown).Cells(2, 1).Address    '<-產生錯誤
   
End Sub

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2010-12-2 20:06 | 只看該作者
本帖最後由 GBKEE 於 2010-12-2 20:07 編輯
1.  附件中sheet A B兩個資料總合在DATA中  hugh0620 發表於 2010-12-2 15:14
  1. Sub Ex()  '匯整
  2.     Dim S As Worksheet
  3.     For Each S In Sheets(Array("A", "B"))
  4.         S.Range("D6").CurrentRegion.Offset(1).Copy Sheets("DATA").Range("D" & Rows.Count).End(xlUp).Cells(2)
  5.     Next
  6. End Sub
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
88  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-16 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2010-12-2 22:44 | 只看該作者
表格位置若都相同，使用共用參照
=OFFSET(!$A$2,,,COUNTA(!$A$1:$A$65536)-1,20)
可使多表使用同一名稱，巨集也可只使用同一巨集
學海無涯_不恥下問

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2020-5-12 
7#
發表於 2010-12-3 11:16 | 只看該作者
回復 4# GBKEE


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

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2020-5-12 
8#
發表於 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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
9#
發表於 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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2010-12-4 08:40 | 只看該作者
Rows.Count 顧名思意當然是指列的總數，通常直接用65536oobird 發表於 2010-12-3 14:18

我的Excle版本是2003版 Rows.Count=65536 ,2007版 ??, 2010版 ??
每當程式碼如有計算到檔案最底端列的數值,我習慣用Rows.Count,可通用所有版本避免錯誤產生.

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
12
返回列表 上一主題