Мне нужно выбрать столбец, содержащий тысячи пустых ячеек, до последней строки, содержащей данные, которые обычно находятся в соседнем столбце, а затем заполнять выбор с формулой. До сих пор я использовал ctrl + ↓, чтобы найти последнюю строку столбца, который, как я знаю, не пуст, и используя это как контрольную точку для определения моего диапазона. Есть ли способ сделать это быстрее в VBA? Я совершенно новый для VBA, но моя работа была бы намного проще, если бы я мог это сделать. Заранее спасибо! :)Заполнение полупустого столбца формулой в Excel
-1
A
ответ
0
Некоторые надежные способы поиска последних использованных ячеек, содержащих значения на листе:
.
Option Explicit
Sub lastUsedCells() 'optimised for performance
Dim maxRow As Long
Dim maxCol As Long
With ActiveSheet
If WorksheetFunction.CountA(.UsedRange) > 0 Then 'if sheet is not empty
With .UsedRange 'restrict search area to UsedRange; (includes formats)
maxRow = .Rows.Count + 1 'last row in UsedRange
maxCol = .Columns.Count + 1 'last col in UsedRange
'first cell not empty in col A
If Len(.Cells(1, 1)) = 0 Then MsgBox .Cells(1, 1).End(xlDown).Row
'first cell not empty in row 1
If Len(.Cells(1, 1)) = 0 Then MsgBox .Cells(1, 1).End(xlToRight).Column
MsgBox .Cells(maxRow, 1).End(xlUp).Row 'last row in column A
MsgBox .Cells(1, maxCol).End(xlToLeft).Column 'last column in row 1
MsgBox .Find(_
What:="*", _
After:=.Cells(1, 1), _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row 'last row (longest col)
MsgBox .Find(_
What:="*", _
After:=.Cells(1, 1), _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column 'last col (longest row)
End With
Else
MsgBox "Sheet " & .Name & " is empty"
End If
End With
End Sub
Подробнее: Finding last used cell in VBA
+0
Ах, спасибо! Это именно то, что я искал. :) Я искал SO с неправильной фразой, ха-ха. – slothy
Смежные вопросы
- 1. Заполнение колонны формулой без переменной
- 2. Excel: вывести имя столбца таблицы с формулой
- 3. Заполнение пустых ячеек формулой в Excel (без VBA)
- 4. Excel VBA - Заполнение пустых ячеек базы данных с формулой диапазона
- 5. Excel смещение с формулой
- 6. Проблемы с формулой в Excel
- 7. Тип Несовпадение при выборе столбца с формулой VBA (Excel)
- 8. Excel - подсчет доступных ресурсов с формулой Excel
- 9. VBA macro с формулой (Excel)
- 10. Обновление таблицы с формулой Excel
- 11. Другая ситуация с формулой excel
- 12. Работа с формулой формулы Excel
- 13. CountIf в Excel с формулой в критериях
- 14. Создание URL с формулой в excel
- 15. Проблемы с формулой в Excel VBA
- 16. Регулярное выражение в соответствии с формулой Excel
- 17. Excel Автоматическое заполнение Ярлык
- 18. Автоматическое заполнение пробелов в Excel
- 19. Заполнение отсутствующих данных в excel
- 20. динамическое заполнение массива строк из столбца фраз в листе excel
- 21. Заполнение значений в Excel на основе другого столбца значений
- 22. Заполнение данных в Excel
- 23. Заполнение столбцов в Excel
- 24. Заполнение excel кросс-таблицы
- 25. Выберите заголовок столбца, если ячейка является формулой
- 26. Создание пустого столбца Pandas DataFrame с фиксированным первым значением, а затем его заполнение формулой
- 27. В чем разница между общей формулой и формулой массива?
- 28. Оценка групп значений ячеек с формулой Excel
- 29. Excel VBA, создающий новый столбец с формулой
- 30. Ошибка с вложенной формулой Excel IF
у вас есть какой-либо код или фрагмент –