Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: айти последнюю ячеку заполненную в 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(";Data5";).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 

Вопросов: 152
Ответов: 3625
 Профиль | | #2 Добавлено: 24.09.13 12:55
Найти последнюю непустую ячейку? :-) Это та ячейка от которой дальше пустая таблица уходит?

Строки
MsgBox ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count

Столбцы
MsgBox ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count

Ответить

Страница: 1 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам