![Применить формулу ко всему столбцу, поскольку количество строк в исходном файле меняется?](https://rvso.com/image/1416715/%D0%9F%D1%80%D0%B8%D0%BC%D0%B5%D0%BD%D0%B8%D1%82%D1%8C%20%D1%84%D0%BE%D1%80%D0%BC%D1%83%D0%BB%D1%83%20%D0%BA%D0%BE%20%D0%B2%D1%81%D0%B5%D0%BC%D1%83%20%D1%81%D1%82%D0%BE%D0%BB%D0%B1%D1%86%D1%83%2C%20%D0%BF%D0%BE%D1%81%D0%BA%D0%BE%D0%BB%D1%8C%D0%BA%D1%83%20%D0%BA%D0%BE%D0%BB%D0%B8%D1%87%D0%B5%D1%81%D1%82%D0%B2%D0%BE%20%D1%81%D1%82%D1%80%D0%BE%D0%BA%20%D0%B2%20%D0%B8%D1%81%D1%85%D0%BE%D0%B4%D0%BD%D0%BE%D0%BC%20%D1%84%D0%B0%D0%B9%D0%BB%D0%B5%20%D0%BC%D0%B5%D0%BD%D1%8F%D0%B5%D1%82%D1%81%D1%8F%3F.png)
У меня есть подключение к источнику текстового файла, поэтому лист 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
Ваш вопрос также указывает на то, что он делает только весь рабочий лист, когда вы впервые загружаете его, после этого, когда вы нажимаете кнопку, он не применяет это к новым записям. Это означает, что он не подсчитывает общее количество строк правильно, поэтому вы можете использовать что-то вроде вышеприведенного, чтобы гарантировать, что он всегда проходит по всем строкам.