
我有一個到文字檔案來源的連接,因此 Excel 工作表會自動更新。因此,每次更新時行數總是在增長。如何將公式套用到整列?
雙擊單元格底角的框僅在連接刷新之前將公式應用於先前的單元格,底部新添加的行不會收到公式。
答案1
您的問題沒有說明您想要應用什麼公式,而是閱讀了當行數未知時如何對整列應用公式。
一些想法
Range("A:A") 'this grabs the entire range
所以,你可以這樣做
Dim rng As Range
Dim row As Range
Dim cell As Range
Set rng = Range("A1:C2")
For Each row In rng.Rows
For Each cell in row.Cells
'logic
Next cell
Next row
或者,您可以繼續轉到下一行,直到下一行為空
dim row as integer
row = 1
do while (Range("A" & row).value<>"")
'logic
row= row + 1
loop
您的問題還表明,它僅在您首次加載時執行整個工作表,之後,當您點擊按鈕時,它不會將其應用於新條目。這意味著它沒有正確計算總行數,因此您可以使用類似上面的方法來確保它始終迭代所有行。