[算表] EXCEL VBA 複製貼上欄位問題

[ZPKZ (Bao)]

軟體:EXCEL

版本:2010

板友好，我最近在嘗試寫一個簡單的EXCEL VBA，碰到了一點問題，

我原先的目的是在工作表A1欄位輸入資料，接著按下巨集鍵就可以

依照工作表內A1,A2,A3...AN欄位這樣複製下去，在編寫的時候碰到

了困難，想請問這樣要怎麼解決呢? 謝謝。


    Sheets("工作表1").Select
    Range("A1").Select
    Selection.Cut
    Sheets("工作表2").Select
    Dim i As Integer
    For i = 1 To 10
    If Cells(i, 1).Value <> "" Then i = i Else: i = i + 1
    Cells(i, 1).Select
    ActiveSheet.Paste
    Next

我的想法是要讓Cells(i, 1).Value的值為空白欄位時才會貼上，可是

巨集點了後每次我在工作表1的A1欄位輸入的值都會貼到工作表2中的A2

欄位，且接著輸入的新資料都會覆蓋到A2的舊資料，而沒有照我所想的

從工作表2的A1欄位開始貼上，想請教一下這樣要如何解決呢?



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.226.133.240
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1410103547.A.4DE.html
→ soyoso: 以上面迴圈來看是希望工作表2!A1:A10為空白欄位的話，就貼
→ soyoso: 工作表1!A1的值嗎?
→ ZPKZ: 樓上大哥您好 我想說的是我現在工作表A1有個欄位可以讓我輸
→ ZPKZ: 入資料,接著我按下巨集程式會將該資料剪下,並判定工作表2中
→ ZPKZ: A1欄位是否為空白,如空白就貼上,如果已經有資料就查看A2是否
→ ZPKZ: 為空白,如果A2空白就貼上該值,依此類推@@ 可能表達的不是很
→ ZPKZ: 好,抱歉~
→ soyoso: http://goo.gl/o37a13 試試
→ ZPKZ: 可以了 太感謝您了!
→ ZPKZ: 另外想請教Find("", [A10])是指說找尋A1-A10當中的空白欄位
→ ZPKZ: 嗎?
→ soyoso: 是的
→ ZPKZ: 謝謝~