Excel количество столбцов в макросе

Как узнать количество используемых столбцов на листе Excel с помощью VBA?

Dim lastRow As Long
lastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastRow

Используя приведенный выше VBA, я могу найти количество строк. Но как мне узнать количество столбцов в моем файле Excel?

Ваш примерный код получает номер строки последней непустой ячейки в текущем столбце и может быть переписан следующим образом:

Dim lastRow As Long
lastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lastRow

Тогда легко увидеть, что эквивалентный код для получения номера столбца последней непустой ячейки в текущей строке:

Dim lastColumn As Long
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox lastColumn

Это также может быть полезно для вас:

With Sheet1.UsedRange
    MsgBox .Rows.Count & " rows and " & .Columns.Count & " columns"
End With

Но имейте в виду, что если столбец A и / или строка 1 пусты, это не даст такого же результата, как в других примерах выше. Чтобы узнать больше, прочтите о свойстве UsedRange.

Ответ Жана-Франсуа Корбетта идеален. Чтобы быть исчерпывающим, я просто хотел бы добавить, что с некоторыми ограничениями вы также можете использовать UsedRange.Columns.Count или UsedRange.Rows.Count.
Проблема в том, что UsedRange не всегда обновляется при удалении строк / столбцов (по крайней мере, пока вы снова не откроете книгу).

Возможно, вы забыли sheet1 каждый раз где-то перед columns.count, или он будет считать столбцы activesheet, а не sheet1.

Кроме того, не следует ли использовать xltoleft вместо xltoright? (Хорошо, здесь уже очень поздно, но я думаю, что знаю, что справа налево). Я проверил, вы должны написать xltoleft.

lastColumn = Sheet1.Cells(1, sheet1.Columns.Count).End(xlToleft).Column

Результат показан в следующем коде как номер столбца (8,9 и т. Д.):

Dim lastColumn As Long
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox lastColumn

Результат показан в следующем коде как буква (H, I и т. Д.):

Dim lastColumn As Long
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox Split(Sheet1.Cells(1, lastColumn).Address, "$")(1)

подскажите, пожалуйста, как в документе (см. приложение) похожей структуры (имею в виду наличие пустых ячеек, строк, столбцов) в макросе узнать кол-во строк и столбцов значимой области. под значимой областью имею в виду прямоугольную область, покрывающую все непустые ячейки, в данном случае это область С2:N28, т.е. 27 строк, 12 столбцов

Имеется ли какой-то объект или свойство, которое отвечает за эту информацию?

команды ActiveSheet.Cells.Columns.Count и ActiveSheet.Cells.Rows.Count, показывают кол-во столбцов и строк всего листа, т.е. не подходят. Сейчас я просто пробегаю все ячейки и, если встречается подряд пять пустых строк (обычно больше не бывает) делаю останов.
есть вариант перед запуском макроса, нужную область выделить вручную, но это тоже не всегда удобно

я новичок в VBA поэтому врядли подскажу…
а вот спросить бы очень хотелось:
что значит «пробегаю пять пустых ячеек? «

-можете с макросом выложить пример?

Цитата: polioli от 09.11.2009, 23:56
подскажите, пожалуйста, как в документе (см. приложение) похожей структуры (имею в виду наличие пустых ячеек, строк, столбцов) в макросе узнать кол-во строк и столбцов значимой области.

я знаю как не в макросе узнать  — функцией по английски называющейся counta (она из диапазона как раз выдает колличество значимых ячеек)

возможно при помощи макрорекордера можно вытянуть как ее использовать в макросе.

p.s если выложите пример макроса перебирающего ячейки, буду очень благодарен.

_Boroda_, большое спасибо, то, что надо
но в одном случае этого не достаточно.
если в документе строки удаляли с помощью Del, т.е удаление информации, но не самой строки, то после последней «значимой» строки может идти ряд пустых строк.

можно ли как-то вычислить их кол-во (не перебирая ячейки по одной), т.е. посчитать размер диапазона не учитывая последние пустые строки?
еще раз, спасибо!

Нelg, «пробегаю пять пустых ячеек? » имелось в виду в цикле методом перебора проверяю каждую ячейку, и если, к примеру, встречается пять пустых ячеек подряд, то считать, что информации в файле дальше нет.
выглядит это примерно так
ii = 1
Do
    If Len(.Cells(vRow, 1)) = 0 Then
       ii = ii + 1
    End If
   …
      vRow = vRow + 1
  Loop Until ii > 5
Не красиво, не удобно, но работало.
Теперь буду использовать способ, предложенный Бородой

_Boroda_ , спасибо!
теперь, что называется «дошло».
при сохранении программа видимо обновляет информацию о последней ячейке (Ctrl+End).
в моем случае еще важно было обратить внимание на отсутствие форматирования в пустых ячейках в конце документа,
так как они тоже влияют на значение послед. ячейки.
еще раз спасибо, что помогли решить задачу и разобраться.

Ответ Jean-François Corbett идеален. Чтобы быть исчерпывающим, я хотел бы добавить, что с некоторыми ограничителями вы также можете использовать UsedRange.Columns.Count или UsedRange.Rows.Count.
Проблема в том, что UsedRange не всегда обновляется при удалении строк/столбцов (по крайней мере, пока вы не откроете книгу).

Ещё вопросы

• 1Типы HashMap не могут найти символ
• 0Вызов функции PHP nl2br в html doc
• 0структура типа указателя или структура, которая является указателем?
• 1CANJS3 несколько экземпляров компонента
• 1Как вы сравниваете два дескриптора края изображения?
• 1Как посчитать общее количество элементов в многомерном массиве?
• 0C ++ TStringsList Разбор объяснения
• 0Jscript код для страницы PHP
• 0Я правильно связываю это?
• 1Повторение изображения по вертикали и горизонтали в Java
• 1Xamarin.Forms получают данные из кода конкретного устройства обратно в формы
• 0Галерея изображений Javascript с массивом
• 0Странные прыжки в Draggable элементах
• 0Найти длину строки после первого появления определенной подстроки
• 0Копирование и назначение ссылок на C ++
• 1Получить записи из базы данных Mysql и отобразить их в поле со списком
• 1чтение группы чисел из файла по порядку
• 1Ошибка «Не удается прочитать свойство« uid »из null» при использовании firebase в Node?
• 1Заполнение сложных объектов из листа Excel и передача его в качестве параметра в [Теорию]
• 0innerHTML изменение javascript
• 1Создать слова с ошибками (опечатки)
• 0скорость MySQL запроса с интервалом
• 0Двоичная сортировка по вектору
• 0получение суммы значения с использованием группы по [duplicate]
• 1Как мне скачать graphics.py для Python?
• 0не могу создать слово ком объект в PHP
• 0Является ли мой код неопределенным поведением
• 1Использование cordova-plugin-file на Android 7 не работает
• 1view / motionEvent не может быть преобразован в переменный удар
• 1Моя работа не будет прерываться на IScheduler.Interrupt
• 0Хранение и отображение данных JSON с MongoDB и AngularJS
• 1Могу ли я обнаружить оба пейзажа в Android? [Дубликат]
• 1Динамическое обновление макета
• 0Как переписать url в htaccess в IMPRESSPAGES cms?
• 1Почему я не могу преобразовать массив byte [2] в int с помощью BitConverter?
• 0Аккордеон с использованием CSS и без jquery / javascript
• 1Открыть несколько сайтов в одном окне в разных вкладках
• 0Изменить размер шрифта на n-й строке
• 0Перезапустите NodeJS изящно / принудительно (работает с Forever) из PHP
• 0Mysql концепция ключа для того же столбца с общим первичным ключом
• 0JQuery найти самый внутренний контент
• 1Как получить последний индекс элемента массива, используя jQuery?
• 0Загрузка файла в TYPO3 6.2
• 1какую коллекцию использовать для данных типа один ко многим?
• 1Можем ли мы прочитать данные из Excel в почтальоне для JS тестов
• 0Drupal выбрасывает пустой файл update.php
• 0Храните некоторые данные на стороне клиента, к которым можно получить доступ через приложение angularjs
• 1Как разделить строку на несколько строк отдельных символов
• 0Полиморфные рекурсивные вызовы в C ++?
• 0Ускорьте время загрузки html, pdf и txt файлов в теге <object>