Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как узнать номер последней заполненной строки в Excel? / 8 сообщений из 8, страница 1 из 1
14.08.2006, 14:39:00
    #33916622
dumpino
dumpino
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как узнать номер последней заполненной строки в Excel?
есть файлик, с меняющимся количесвом строк, то есть в одно время одно количество строк, в другое - другое. программа запускается с некоторой переодичностью и кушает оттуда данные. Так вот как узнать (или распознать), что данная строчка последняя...или чтото в этом роде =) в VBA я полный просак
короче говоря, мне нужно как то распознать заполненный данными диапозон, чтобы скопировать его.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2006, 15:03:20
    #33916711
betepon
betepon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как узнать номер последней заполненной строки в Excel?
Код: plaintext
1.
2.
Dim iRow as Integer

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

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

С уважением BETEPON
---------------------------
Ну вот собственно и ВСЕ.
Подпись:Смерть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2006, 15:05:04
    #33916719
betepon
betepon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как узнать номер последней заполненной строки в Excel?
Аналогично можно узнать номер поледней заполненной колонки

С уважением BETEPON
---------------------------
Ну вот собственно и ВСЕ.
Подпись:Смерть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2006, 15:24:05
    #33916798
dumpino
dumpino
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как узнать номер последней заполненной строки в Excel?
огромное спасибо, очень помогли

и в продолжение можно?
как программно добавить ячейки, например формата нижней строки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2006, 16:19:37
    #33916952
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как узнать номер последней заполненной строки в Excel?
betepon
Код: plaintext
Dim iRow as Integer

Если строк эдак 50 тыс то интегер лопнет :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2006, 16:36:45
    #33917026
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как узнать номер последней заполненной строки в Excel?
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
| Ответить | Цитировать | Написать  
15.08.2006, 08:48:48
    #33917941
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как узнать номер последней заполненной строки в Excel?
Я использую такую функцию для определения последней строки с данными.
Недостатки вышепредложенного варианта с простым 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:56:20
    #33917954
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как узнать номер последней заполненной строки в Excel?
в пункте 1 был неправ:)
1. Если первые строки листа пустые, то неверно определится строка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как узнать номер последней заполненной строки в Excel? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 325ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184473]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 40ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 219ms
total:  325ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]