[已解決] Excel VBA 新增資料到最後列程式碼疑問

大家好

最近為改進公司工單輸入效率及降低錯誤而在研究Excel VBA表單

參考了 "吳老師教學部落格" 多個Youtube影片後最終完成的結果如下圖

[已解決] Excel VBA 新增資料到最後列程式碼疑問

設計的目標是新增的資料會一筆一筆往下新增

表單的下拉選單，公式等等已完成，測試也沒問題

反而往下新增資料的程式碼，我照著影片打怎麼測試都出現1004的錯誤

[已解決] Excel VBA 新增資料到最後列程式碼疑問

程式碼如下：

Private Sub CommandButton2_Click()

'送出資料
r = Sheets("油性及乳膠工單").Range("B6").End(xlDown).Row + 1
Sheets("油性及乳膠工單").Cells(r, "B") = TextBox1.Text
Sheets("油性及乳膠工單").Cells(r, "D") = TextBox2.Text
Sheets("油性及乳膠工單").Cells(r, "E") = TextBox5.Text
Sheets("油性及乳膠工單").Cells(r, "F") = TextBox4.Text
Sheets("油性及乳膠工單").Cells(r, "G") = Label14.Caption

End Sub

本人是初次接觸Excel VBA的菜鳥，自己摸了2個多禮拜，只剩下這個問題查了很多資料還是解決不了

勞煩各路神人大大解惑

感激不盡謝謝

如需檔案，下載連結如下：
輸出工單_v3.0

文章關鍵字

程式 Excel VBA 疑問新增資料

南風天

79分

2樓

南風天

個人積分：79分

文章編號：80438529

問題應該出在上面那行 r = Sheets("油性及乳膠工單").Range(B6").End(xlDown).Row +1

在沒有資料或只有一筆的情況下，他直接往下跑到最後一格

可以改成判斷B攔有多少筆資料，+3是因為第一筆資料位置為B6 & B3~B5的3格資料要刪除 (+6-3)，
r = Application.WorksheetFunction.CountA(Range("B:B")) + 3

一樣學不久VBA的小意見