最近剛接觸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
...
這樣講不知道清不清楚
如果有疑問我還可以再補充
請各位大大教我一下怎麼寫這段程式吧
謝謝

程式目的清楚，你的問題點不清楚。

方便教我怎麼寫嗎?

問題點不清楚+1

問題就是不知道該怎麼寫 所以想請高手們示範一下我的目標就如同文中所打的如果真要說一個問題 就是當我if的條件成立後要怎麼抓到 sheet2中 Range("A1") 位移(1,0),(1,1) ,(1,2)(1,3) (1,4) (1,5) 這個範圍的值我用 sheets("sheet2").Range(Range("A" & i),Range("A" &i).End(xltoright)).copy 好像copy不到

看這篇 #1I3TPBGI 。你對range()的用法有誤解。

去查一下這個函數 offset 就是平行位移的函數

錄巨集，編輯巨集就可以看到語法