我正在嘗試在 Excel 中撰寫一個宏來幫助我將原始銀行資料移動到包含在單獨作業表中的表中。
我的檔案中的作業表：
原始資料表- 此作業表包含原始銀行資料
交易表- 此作業表包含一個表（“表 1”），其中存盤了所有銀行交易
我想將“RawData”表中列出的所有交易添加到 Table1 的底部。每次執行宏時事務的數量都不同，所以我需要找到一種方法讓宏計算每次需要添加到 Table1 的總行數，并添加所有資料行。到目前為止，我撰寫的宏正確地將資料添加到 Table1，但只有第一行資料。此外，我想讓資料在移動后自動從“RawData”作業表中洗掉。
我目前使用的代碼是：
Dim ws As Worksheet
Dim newrow As ListRow
Dim inpt As Worksheet
Set ws = Worksheets("Transactions")
Set inpt = Worksheets("RawData")
Set newrow = ws.ListObjects("Table1").ListRows.Add
With newrow
.Range(1) = Range("A2")
.Range(2) = Range("B2")
.Range(3) = Range("C2")
.Range(4) = Range("D2")
.Range(5) = Range("E2")
.Range(6) = Range("F2")
End With
End Sub
我正在使用 Office 365。
非常感謝您的幫助。
uj5u.com熱心網友回復：
您需要遍歷資料的行。就像是：
i = 2
Do until Range("A" & i).Value = ""
Set newrow = ws.ListObjects("Table1").ListRows.Add
With newrow
.Range(1) = Range("A" & i)
.Range(2) = Range("B" & i)
.Range(3) = Range("C" & i)
.Range(4) = Range("D" & i)
.Range(5) = Range("E" & i)
.Range(6) = Range("F" & i)
End With
i = i 1
Loop
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/411625.html
標籤：
上一篇：自動過濾以包含標題