[算表] EXCEL VBA 複製貼上欄位問題
軟體: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
09/07 23:36, 1F
→
09/07 23:36, , 2F
09/07 23:36, 2F
→
09/07 23:42, , 3F
09/07 23:42, 3F
→
09/07 23:43, , 4F
09/07 23:43, 4F
→
09/07 23:44, , 5F
09/07 23:44, 5F
→
09/07 23:44, , 6F
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
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