作者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