как узнать номер последней заполненной строки в Excel? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как узнать номер последней заполненной строки в Excel?

8 сообщений из 8, страница 1 из 1

как узнать номер последней заполненной строки в Excel?

#33916622

dumpino

Участник

Откуда: Уфа

Сообщения: 101

Рейтинг: 0 / 0

есть файлик, с меняющимся количесвом строк, то есть в одно время одно количество строк, в другое - другое. программа запускается с некоторой переодичностью и кушает оттуда данные. Так вот как узнать (или распознать), что данная строчка последняя...или чтото в этом роде =) в VBA я полный просак
короче говоря, мне нужно как то распознать заполненный данными диапозон, чтобы скопировать его.

...

Рейтинг:

0 / 0

14.08.2006, 14:39:00

| Ответить | Цитировать | Написать

как узнать номер последней заполненной строки в Excel?

#33916711

betepon

Гость

Код: plaintext

1.
2.

Dim iRow as Integer

iRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count -  1

iRow - номер последней заполненной строки

С уважением BETEPON
---------------------------
Ну вот собственно и ВСЕ.
Подпись:Смерть

...

Рейтинг:

0 / 0

14.08.2006, 15:03:20

| Ответить | Цитировать | Написать

как узнать номер последней заполненной строки в Excel?

#33916719

betepon

Гость

Аналогично можно узнать номер поледней заполненной колонки

С уважением BETEPON
---------------------------
Ну вот собственно и ВСЕ.
Подпись:Смерть

...

Рейтинг:

0 / 0

14.08.2006, 15:05:04

| Ответить | Цитировать | Написать

как узнать номер последней заполненной строки в Excel?

#33916798

dumpino

Участник

Откуда: Уфа

Сообщения: 101

Рейтинг: 0 / 0

огромное спасибо, очень помогли

и в продолжение можно?
как программно добавить ячейки, например формата нижней строки?

...

Рейтинг:

0 / 0

14.08.2006, 15:24:05

| Ответить | Цитировать | Написать

как узнать номер последней заполненной строки в Excel?

#33916952

arseny

Участник

Откуда: интель_лип_эхед

Сообщения: 250

Рейтинг: 0 / 0

betepon

Код: plaintext

Dim iRow as Integer

Если строк эдак 50 тыс то интегер лопнет :-)

...

Рейтинг:

0 / 0

14.08.2006, 16:19:37

| Ответить | Цитировать | Написать

как узнать номер последней заполненной строки в Excel?

#33917026

arseny

Участник

Откуда: интель_лип_эхед

Сообщения: 250

Рейтинг: 0 / 0

dumpinoкак программно добавить ячейки, например формата нижней строки?

Примерно так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Sub CopyFormat()
    Dim lRow As Long
    Dim lColumnStart As Long
    Dim lColumnEnd As Long
    
    
    
    With ActiveSheet
        With .UsedRange
            lRow = .Row + .Rows.Count -  1 
            lColumnStart = .Column
            lColumnEnd = lColumnStart + .Columns.Count -  1 
        End With
        
        
        .Range(.Cells(lRow, lColumnStart), .Cells(lRow, lColumnEnd)).Copy
        .Range(.Cells(lRow +  1 , lColumnStart), .Cells(lRow +  1 , lColumnEnd)).PasteSpecial xlPasteFormats
    End With
End Sub

...

Рейтинг:

0 / 0

14.08.2006, 16:36:45

| Ответить | Цитировать | Написать

как узнать номер последней заполненной строки в Excel?

#33917941

sergeyvg

Гость

Я использую такую функцию для определения последней строки с данными.
Недостатки вышепредложенного варианта с простым UsedRange:
1. Если первые строки листа пустые, то неверно определится строка.
2. Если нет данных, но было форматирование в последней строке, она будет считаться не пустой.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Function RealLastRowHide(WB As Worksheet) As Long
Dim UsR As Range, K As Long, I As Long, FreeC As Long
  RealLastRowHide =  1 
  Set UsR = WB.UsedRange
  FreeC = UsR.Column + UsR.Columns.Count
  If FreeC >  256  Then FreeC =  256 
On Error Resume Next
  For I = UsR.Row + UsR.Rows.Count -  1  To  1  Step - 1 
    K = WB.Rows(I).RowDifferences(comparison:=WB.Cells(I, FreeC)).Row
    If Err.Number =  0  Then
      RealLastRowHide = I: Exit Function
    Else
      Err.Clear
    End If
  Next I
End Function

...

Рейтинг:

0 / 0

15.08.2006, 08:48:48

| Ответить | Цитировать | Написать

как узнать номер последней заполненной строки в Excel?

#33917954

sergeyvg

Гость

в пункте 1 был неправ:)
1. Если первые строки листа пустые, то неверно определится строка.

...

Рейтинг:

0 / 0

15.08.2006, 08:56:20

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как узнать номер последней заполненной строки в Excel?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=33916719&tid=2184473]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	2ms
check topic access:	2ms
track hit:	44ms
get topic data:	7ms
get forum data:	2ms
get page messages:	36ms
get tp. blocked users:	1ms
others:	242ms

total:	359ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы