[發問] VBA 如何新增下一筆資料 VBA

Jared

想請問各位VBA高手，小弟我是最近開始研究VBA程式
目前是想要撰寫在能Excel表單內新增一筆資料後
會一直往下新增
目前小弟寫的程式如下
但每寫入一筆資料後就會刪除前一筆資料
欄位不曉得如何往下新增?
===================================
Sub 陣列新增資料()
Dim a(18)
Sheets("空白需求單").Select
a(0) = Range("B29") '編號
a(1) = Range("A1") '需求項目
a(2) = Range("B2") '子項目
a(3) = Range("B3") '委託單位
a(4) = Range("B4") '委託人
a(5) = Range("B5") '委託項目
a(6) = Range("D4") '連絡方式
a(7) = Range("F3") '委託日
a(8) = Range("F4") '目標完成日
a(9) = Range("F5") '實際完成日
a(10) = Range("B6") '案件緣由
a(11) = Range("B8") '製作方式
a(12) = Range("B11:B13") '必備項目
a(13) = Range("B14") '回饋項目
a(14) = Range("C16:C18") '回饋格式
a(15) = Range("B20") '製作順序
a(16) = Range("B22") '資料位置
a(17) = Range("B24") '後續追蹤
a(18) = Range("B26") '備註

Sheets("線上總表").Select
Range("S3") = a(0) '編號
Range("A3") = a(1) '需求項目
Range("B3") = a(2) '子項目
Range("C3") = a(3) '委託單位
Range("D3") = a(4) '委託人
Range("E3") = a(5) '聯絡方式
Range("F3") = a(6) '連絡方式
Range("G3") = a(7) '委託時間
Range("H3") = a(8) '目標完成時間
Range("I3") = a(9) '實際完成時間
Range("J3") = a(10) '案件緣由
Range("K3") = a(11) '製作方式
Range("L3") = a(12) '必要項目
Range("M3") = a(13) '回饋項目
Range("N3") = a(14) '回饋格式
Range("O3") = a(15) '製作順序
Range("P3") = a(16) '檔案路徑
Range("Q3") = a(17) '後續追蹤
Range("R3") = a(18) '備註

Sheets("空白需求單").Select
Range("A1,B2,B3,B4,B5,D4,F3,F4,F5,B6,B8,B11:B13,B14,C16:C18,B20,B22,B24,B26").Select
Selection.ClearContents '新增完一筆後會刪除表單內的資料並將編號+1

Range("B29").Formula = "=Text(" & a(0) + 1 & ",""0000"")"

End Sub
==========================================================

Hsieh

回復 1# Jared
a(12) = Range("B11:B13") '必備項目
a(14) = Range("C16:C18") '回饋格式
此2個項目是合併儲存格嗎?
最好上傳檔案說明

Jared

你好!
a(12) = Range("B11:B13") '必備項目
a(14) = Range("C16:C18") '回饋格式

B11、B12、B13是連續欄位
是一塊儲存在另外一個欄位

Hsieh

回復 3# Jared
沒有檔案，猜猜你的需求

1. Sub 陣列新增資料()
   
2. Dim a(1 To 19)
   
3. With Sheets("空白需求單")
   
4. a(1) = .Range("A1") '需求項目
   
5. a(2) = .Range("B2") '子項目
   
6. a(3) = .Range("B3") '委託單位
   
7. a(4) = .Range("B4") '委託人
   
8. a(5) = .Range("B5") '委託項目
   
9. a(6) = .Range("D4") '連絡方式
   
10. a(7) = .Range("F3") '委託日
    
11. a(8) = .Range("F4") '目標完成日
    
12. a(9) = .Range("F5") '實際完成日
    
13. a(10) = .Range("B6") '案件緣由
    
14. a(11) = .Range("B8") '製作方式
    
15. a(12) = Join(Application.Transpose(.Range("B11:B13")), "、") '必備項目
    
16. a(13) = .Range("B14") '回饋項目
    
17. a(14) = Join(Application.Transpose(.Range("C16:C18")), "、") '回饋格式
    
18. a(15) = .Range("B20") '製作順序
    
19. a(16) = .Range("B22") '資料位置
    
20. a(17) = .Range("B24") '後續追蹤
    
21. a(18) = .Range("B26") '備註
    
22. a(19) = .Range("B29") '編號
    
23. With Sheets("線上總表")
    
24. .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 19) = a
    
25. End With
    
26. .Range("A1,B2,B3,B4,B5,D4,F3,F4,F5,B6,B8,B11:B13,B14,C16:C18,B20,B22,B24,B26").ClearContents '新增完一筆後會刪除表單內的資料並將編號+1
    
27. .Range("B29").Formula = "=Text(" & a(19) + 1 & ",""0000"")"
    
28. End With
    
29. End Sub

複製代碼

Jared

謝謝 Hsieh
馬上來試看看~