| Вопрос: айти последнюю ячеку заполненную в vba | Добавлено: 16.09.13 19:11 |
Автор вопроса:  orlov
|
|
Народ подскажите вопрос как найти последнюю не пустую ячейку в VBA скриптом.Дело такое выгружаю с базы значения в ексель файл и вба скриптом хочу разбить выгруженные данные на другие листы .Так вот как найти пустую ячейку то он мне диапазон выводит до 60+тысяч строк на печать такое не выведешь Пример:
Sub DataCompare()
Dim kd As String Sheets("Data5").Select Range("B2").Select Range("B2:H25").Select Selection.Copy Sheets("Дорожный отчет").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("B1").Select MsgBox (Range(ActiveCell, ActiveCell.End(xlDown)).Count) 'kd = "$B$1:$G$" + Range(ActiveCell, ActiveCell.End(xlDown)).Count 'Sheets("Дорожный отчет").PageSetup.PrintArea = kd Range("B1").Select End Sub помогите плиз) |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  orlov Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 17.09.13 15:06 |
|
сделал вот так :
Цитата: Dim lLastRow As Long Dim lLastCol As Long Sheets("  ata5" .Select
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column Range("B2:H" & lLastRow).Select Range("B2:H" & lLastCol).Select Selection.Copy Sheets("Дорожный отчет" .Select
но он вставляет на другой лист в строку b1 но мне надо чтоб в b2 тоесть ниже |
||
|
Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #2 | Добавлено: 24.09.13 12:55 |
Найти последнюю непустую ячейку?  Это та ячейка от которой дальше пустая таблица уходит?
Строки MsgBox ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count Столбцы MsgBox ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count |
||
Страница: 1 |