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

[ldneye (ldn)]

最近剛接觸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)
推 johnpage:程式目的清楚，你的問題點不清楚。
→ ldneye:方便教我怎麼寫嗎?
→ MOONRAKER:問題點不清楚+1
→ ldneye:問題就是不知道該怎麼寫 所以想請高手們示範一下
→ ldneye:我的目標就如同文中所打的
→ ldneye:如果真要說一個問題  就是當我if的條件成立後
→ ldneye:要怎麼抓到 sheet2中 Range("A1") 位移(1,0),(1,1) ,(1,2)
→ ldneye:(1,3) (1,4) (1,5) 這個範圍的值
→ ldneye:我用  sheets("sheet2").Range(Range("A" & i),Range("A" &
→ ldneye:i).End(xltoright)).copy  好像copy不到
→ MOONRAKER:看這篇 #1I3TPBGI 。你對range()的用法有誤解。
→ DeathWatch:去查一下這個函數 offset 就是平行位移的函數
推 johnpage:錄巨集，編輯巨集就可以看到語法