作者ldneye (ldn)
看板Visual_Basic
標題[VBA ] 抓取不同sheets裡的資料
時間Fri Oct 25 07:07:16 2013
最近剛接觸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)
1F：推 johnpage:程式目的清楚，你的問題點不清楚。 10/25 08:05
2F：→ ldneye:方便教我怎麼寫嗎? 10/25 08:29
3F：→ MOONRAKER:問題點不清楚+1 10/25 09:28
4F：→ ldneye:問題就是不知道該怎麼寫 所以想請高手們示範一下 10/25 10:01
5F：→ ldneye:我的目標就如同文中所打的 10/25 10:02
6F：→ ldneye:如果真要說一個問題 就是當我if的條件成立後 10/25 10:03
7F：→ ldneye:要怎麼抓到 sheet2中 Range("A1") 位移(1,0),(1,1) ,(1,2) 10/25 10:05
8F：→ ldneye:(1,3) (1,4) (1,5) 這個範圍的值 10/25 10:06
9F：→ ldneye:我用 sheets("sheet2").Range(Range("A" & i),Range("A" & 10/25 10:08
10F：→ ldneye:i).End(xltoright)).copy 好像copy不到 10/25 10:09
11F：→ MOONRAKER:看這篇 #1I3TPBGI 。你對range()的用法有誤解。 10/25 10:57
12F：→ DeathWatch:去查一下這個函數 offset 就是平行位移的函數 10/26 11:07
13F：推 johnpage:錄巨集，編輯巨集就可以看到語法 10/28 22:26