软件:EXCEL
版本:2010
各位板友好，目前在修改EXCEL VBA程式时碰到一些问题，想请教一下：
以下为目前的程式
Dim Rng1 As Range
Set Rng1 = Sheets("Sheet4").Range("A2:A20000").Find("", [A20000])
If Rng1 Is Nothing Then MsgBox "范围资料已满": Exit Sub
Sheets("Sheet1").[B1].Copy Rng1
Dim Rng2 As Range
Set Rng2 = Sheets("Sheet4").Range("B2:B20000").Find("", [B20000])
If Rng2 Is Nothing Then MsgBox "范围资料已满": Exit Sub
Sheets("Sheet1").[B2].Copy Rng2
在Rng2的那段中发生了一些问题
Q1. 原本程式的意思为程式会从工作表4 B2~B20000的字段中，判断有空白处就贴上资料
但我想要将他更改成程式条件只看A2~A20000的字段来判断B行的哪一个字段要贴上资料
举例来说，假如现在程式侦测到工作表4中A2,A3,A4都有资料，那我在工作表1中的B2栏
位资料就会复制贴到工作表4中的B5字段
Q2. 另外一个问题是，由于我在工作表1的B2字段复制的资料是由VLOOKUP抓取的资料，
如此复制贴到工作表4中的字段时，会变成#N/A，必须手动再点选将该字段仅显示为值
才能显示出我于VLOOKUP中表现的值，想请教一下这边有什么方法可以解决吗?我试过
PasteSpecial可是好像没办法成功
谢谢各位了!

Q1的意思找二格A2:A2000空白储存格复制B1和B2贴上吗?Q2.pastespecial使用xlpastevalues贴上值Q1的意思还是指找到A2:A2000的空白储存格(A5)时就将B1:B2贴到A5:B5上呢?

大哥您好 我的意思是说 我在工作表1的B1字段及B2字段的资料要先复制，接着再分别贴上到工作表4中的A2字段及B2字段。B1字段资料方面，假如A2字段有资料，程式就会将B1资料贴到A3，如果A3还是有资料，B1资料就会贴到A4，依此类推；B2字段资料方面也想要照B1那样判定，假如A2字段有资料，程式就会将B1资料贴到B3，如果A3还是有资料，资料就会贴到B4，依此类推，想要表达的意思主要是贴上资料这部分都想要以A行是否有资料来进行判定抱歉推文第五行打错了 应该室 假如A2字段有资料，程式就会将B2资料贴到工作表4中的B3字段Q1应该是第二个意思

http://goo.gl/EaKBr4 试试

SO大太感谢了可以方便请教Rng.PasteSpecial 12, Transpose:=True意思吗?

12=xlpastevalues(贴上值)，transpose为转置的意思

那请问如果我要将B1 B2 以及 E2 F2 G2 H2的资料依照工作表4内A2 B2 C2 D2 E2 F2来贴上要如何做呢?因为A2 B2是直行资料；而E2 F2 G2 H2是横排资料贴上时由于转置存在的关系似乎会怪怪的@@目前有一个想法是说 由于我只有工作表1内只有B1、B2是直排资料，那我在复制贴上资料表1中E2 F2 G2 H2的资料不知道可否从C2开始贴上呢?另外补充一下资料表1中完整的资料为B1 B2(直排资料)而E2 F2G2 H2 E3 F3 G3 H3(横排资料,分两列)想要从工作表4内A2 B2 C2 D2 E2 F2 G2 H2 I2 J2来贴上

http://goo.gl/EaKBr4 重下试试

说错了 另外工作表1的资料还有E9 F9 G9 H9 想要贴在工作表4内的K2 L2 M2 N2内谢谢S大 我这就试试看这样的话我应该还要再加上[E9:H9].Copy Rng.End(2)(, 2)

http://goo.gl/EaKBr4 再重下试试

可以了...S大感恩