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

看板Office作者 (Bao)時間11年前 (2014/09/07 23:25), 編輯推噓0(0013)
留言13則, 2人參與, 最新討論串1/1
軟體: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

09/07 23:36, , 1F
以上面迴圈來看是希望工作表2!A1:A10為空白欄位的話,就貼
09/07 23:36, 1F

09/07 23:36, , 2F
工作表1!A1的值嗎?
09/07 23:36, 2F

09/07 23:42, , 3F
樓上大哥您好 我想說的是我現在工作表A1有個欄位可以讓我輸
09/07 23:42, 3F

09/07 23:43, , 4F
入資料,接著我按下巨集程式會將該資料剪下,並判定工作表2中
09/07 23:43, 4F

09/07 23:44, , 5F
A1欄位是否為空白,如空白就貼上,如果已經有資料就查看A2是否
09/07 23:44, 5F

09/07 23:44, , 6F
為空白,如果A2空白就貼上該值,依此類推@@ 可能表達的不是很
09/07 23:44, 6F

09/07 23:44, , 7F
好,抱歉~
09/07 23:44, 7F

09/07 23:59, , 8F
09/07 23:59, 8F

09/08 00:08, , 9F
可以了 太感謝您了!
09/08 00:08, 9F

09/08 00:09, , 10F
另外想請教Find("", [A10])是指說找尋A1-A10當中的空白欄位
09/08 00:09, 10F

09/08 00:09, , 11F
嗎?
09/08 00:09, 11F

09/08 00:13, , 12F
是的
09/08 00:13, 12F

09/08 00:21, , 13F
謝謝~
09/08 00:21, 13F
文章代碼(AID): #1K37ZxJU (Office)