最近刚接触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 就是平行位移的函数

录宏，编辑宏就可以看到语法