軟體: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大感恩