[算表] EXCEL VBA判斷條件

[ZPKZ (Bao)]

軟體: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可是好像沒辦法成功

謝謝各位了!

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.160.81.68
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1410159920.A.B3F.html
→ soyoso: Q1的意思找二格A2:A2000空白儲存格複製B1和B2貼上嗎?
→ soyoso: Q2.pastespecial使用xlpastevalues貼上值
→ soyoso: Q1的意思還是指找到A2:A2000的空白儲存格(A5)時就將B1:B2
→ soyoso: 貼到A5:B5上呢?
→ ZPKZ: 大哥您好 我的意思是說 我在工作表1的B1欄位及B2欄位的資料
→ ZPKZ: 要先複製，接著再分別貼上到工作表4中的A2欄位及B2欄位。B1
→ ZPKZ: 欄位資料方面，假如A2欄位有資料，程式就會將B1資料貼到A3，
→ ZPKZ: 如果A3還是有資料，B1資料就會貼到A4，依此類推；B2欄位資
→ ZPKZ: 料方面也想要照B1那樣判定，假如A2欄位有資料，程式就會將B1
→ ZPKZ: 資料貼到B3，如果A3還是有資料，資料就會貼到B4，依此類推，
→ ZPKZ: 想要表達的意思主要是貼上資料這部分都想要以A行是否有資料
→ ZPKZ: 來進行判定
→ ZPKZ: 抱歉推文第五行打錯了 應該室 假如A2欄位有資料，程式就會將
→ ZPKZ: B2資料貼到工作表4中的B3欄位
→ ZPKZ: Q1應該是第二個意思
→ soyoso: http://goo.gl/EaKBr4 試試
→ ZPKZ: SO大太感謝了
→ ZPKZ: 可以方便請教Rng.PasteSpecial 12, Transpose:=True意思嗎?
→ soyoso: 12=xlpastevalues(貼上值)，transpose為轉置的意思
→ ZPKZ: 那請問如果我要將B1 B2 以及 E2 F2 G2 H2的資料依照
→ ZPKZ: 工作表4內A2 B2 C2 D2 E2 F2來貼上要如何做呢?因為A2 B2是直
→ ZPKZ: 行資料；而E2 F2 G2 H2是橫排資料
→ ZPKZ: 貼上時由於轉置存在的關係似乎會怪怪的@@
→ ZPKZ: 目前有一個想法是說 由於我只有工作表1內只有B1、B2是直排資
→ ZPKZ: 料，那我在複製貼上資料表1中E2 F2 G2 H2的資料不知道可否從
→ ZPKZ: C2開始貼上呢?
→ ZPKZ: 另外補充一下資料表1中完整的資料為B1 B2(直排資料)而E2 F2
→ ZPKZ: G2 H2 E3 F3 G3 H3(橫排資料,分兩列)
→ ZPKZ: 想要從工作表4內A2 B2 C2 D2 E2 F2 G2 H2 I2 J2來貼上
→ soyoso: http://goo.gl/EaKBr4 重下試試
→ ZPKZ: 說錯了 另外工作表1的資料還有E9 F9 G9 H9 想要貼在工作表4
→ ZPKZ: 內的K2 L2 M2 N2內
→ ZPKZ: 謝謝S大 我這就試試看
→ ZPKZ: 這樣的話我應該還要再加上[E9:H9].Copy Rng.End(2)(, 2)
→ soyoso: http://goo.gl/EaKBr4 再重下試試
→ ZPKZ: 可以了...S大感恩