[VBA ] 抓取不同sheets裡的資料

看板Visual_Basic作者 (ldn)時間12年前 (2013/10/25 07:07), 編輯推噓2(2011)
留言13則, 4人參與, 最新討論串1/2 (看更多)
最近剛接觸VBA 所以有些東西還不是很熟 下面這個問題我google一天了還是找不到解決的辦法 目標 : 我有兩個column 的資料 ( 文字) 分別在不同的工作表 sheet1 : a b c d e f (A1 :A6) sheet2 : a 1 2 3 4 5 6 7 8 9 10 b 1 2 3 4 5 6 7 8 9 10 c 1 2 3 4 5 6 7 8 9 10 e 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ... 我想要是設一個迴圈 if sheet1.range("A" & i) = sheet2.range("A" & j ) copy sheet2.range("A2 : E2") paste in sheet1.range("B1 :E1") ... ( 也就是在sheet2裡的 a的下面的 1 2 3 4 5 要貼到 sheet1 a 的左邊 , 最後迴圈跑完的結果在sheet1是 : a 1 2 3 4 5 b 1 2 3 4 5 c 1 2 3 4 5 d 1 2 3 4 5 e 1 2 3 4 5 ... 這樣講不知道清不清楚 如果有疑問我還可以再補充 請各位大大教我一下怎麼寫這段程式吧 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 90.204.123.253 ※ 編輯: ldneye 來自: 90.204.123.253 (10/25 07:23)

10/25 08:05, , 1F
程式目的清楚,你的問題點不清楚。
10/25 08:05, 1F

10/25 08:29, , 2F
方便教我怎麼寫嗎?
10/25 08:29, 2F

10/25 09:28, , 3F
問題點不清楚+1
10/25 09:28, 3F

10/25 10:01, , 4F
問題就是不知道該怎麼寫 所以想請高手們示範一下
10/25 10:01, 4F

10/25 10:02, , 5F
我的目標就如同文中所打的
10/25 10:02, 5F

10/25 10:03, , 6F
如果真要說一個問題 就是當我if的條件成立後
10/25 10:03, 6F

10/25 10:05, , 7F
要怎麼抓到 sheet2中 Range("A1") 位移(1,0),(1,1) ,(1,2)
10/25 10:05, 7F

10/25 10:06, , 8F
(1,3) (1,4) (1,5) 這個範圍的值
10/25 10:06, 8F

10/25 10:08, , 9F
我用 sheets("sheet2").Range(Range("A" & i),Range("A" &
10/25 10:08, 9F

10/25 10:09, , 10F
i).End(xltoright)).copy 好像copy不到
10/25 10:09, 10F

10/25 10:57, , 11F
看這篇 #1I3TPBGI 。你對range()的用法有誤解。
10/25 10:57, 11F

10/26 11:07, , 12F
去查一下這個函數 offset 就是平行位移的函數
10/26 11:07, 12F

10/28 22:26, , 13F
錄巨集,編輯巨集就可以看到語法
10/28 22:26, 13F
文章代碼(AID): #1IQQWdkJ (Visual_Basic)
文章代碼(AID): #1IQQWdkJ (Visual_Basic)