我与文本文件源有连接,因此 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
您的问题还表明,它只会在您首次加载时执行整个工作表,之后,当您按下按钮时,它不会将其应用于新条目。这意味着它没有正确计算总行数,因此您可以使用类似上述方法确保它始终遍历所有行。