軟體: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欄位開始貼上，想請教一下這樣要如何解決呢?

以上面迴圈來看是希望工作表2!A1:A10為空白欄位的話，就貼工作表1!A1的值嗎?

樓上大哥您好 我想說的是我現在工作表A1有個欄位可以讓我輸入資料,接著我按下巨集程式會將該資料剪下,並判定工作表2中A1欄位是否為空白,如空白就貼上,如果已經有資料就查看A2是否為空白,如果A2空白就貼上該值,依此類推@@ 可能表達的不是很好,抱歉~

http://goo.gl/o37a13 試試

可以了 太感謝您了!另外想請教Find("", [A10])是指說找尋A1-A10當中的空白欄位嗎?

是的

謝謝~