Выделение диапазона строк

[Гена]

Как выделить в макросе диапазон строк, по первому столбцу (дата), т.е. со строки A8 по n.

[RayShade]

Так не пойдет?

Код: Выделить всё

Range("A8:A34").Select

[Гена]

Ситуация такая. Каждый день приходят данные, эти данные записываются соответственно в строки, количество строк каждый день разное. Мне нужно чтобы макрос сам находил последнюю строку и выделял весь диапазон (все строки) и копировал в другую книгу.
я нашел на форуме такой вот код, но он выделяет заданное количество строк. Помогите кто может.

Код: Выделить всё

Sub s()
a = 15
ActiveSheet.Range("A8:A" & a).Select
End Sub[/quote][/list]

[RayShade]

Я не проверял, но кажется, последняя используемая ячейка диапазона это

Код: Выделить всё

Range("A1:A65535").SpecialCells(xlCellTypeLastCell)

[Гена]

Че тоя вообще уже ничего не понимаю.
Например: 1-день - 2 строки данных
2 день - 5 строк данных
3 день - нет строк с данными
4 день - 10 строк данных
5 день - 51 строк данных
6 день - еще сколько то
Как записать так чтобы, выделялись эти строчки, самостоятельно при запуске макроса. Хотелось бы поподробнее код, если можна заранее благодарен

[amda]

Код: Выделить всё

Sub Макрос1()
For i = 1 To 255'или сколько нужно строчек проверить?
    If Range("A" & i).Text = "" Then Exit For'если пусто, выходим из цикла
Next
Range("A1:A" & i - 1).Select'выделяем всё с первой до последней ячейки
Selection.Copy'копируем в клипборд
End Sub


[GSerg]

Код: Выделить всё

range("a8").currentregion.select

[Tuco]

а я бы так сделал:

Код: Выделить всё

Sub Макрос1()
Dim a As Integer
Dim b As Integer
a = ActiveSheet.UsedRange.Rows.Count
b = ActiveSheet.UsedRange.Columns.Count
Range(Cells(1, 1), Cells(a, b)).Select
Selection.Copy
"Куда вставить?".Select
ActiveSheet.Paste
End Sub

[Гена]

Спасибо всем за помощь.