
У меня есть подключение к источнику текстового файла, поэтому лист 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
Ваш вопрос также указывает на то, что он делает только весь рабочий лист, когда вы впервые загружаете его, после этого, когда вы нажимаете кнопку, он не применяет это к новым записям. Это означает, что он не подсчитывает общее количество строк правильно, поэтому вы можете использовать что-то вроде вышеприведенного, чтобы гарантировать, что он всегда проходит по всем строкам.