Вопрос о копировании ячеек с данными

[gege]

Граждане, вот такой вопрос родился:
Можно ли в макросе сделать так, чтоб при копировании ячеек в столбце в новую книгу копировались только ячейки с данными?
Т.е. не самому задавать диапазон ячеек, которые нужно скопировать, а программно перебирать ячейки в столбце, и если ячейка окажется пустой, то копирование прекращалось.
Вот.

[Saladin]

да легко!
можно выделить в столбце всё ячейки до пустой например так:
range("a1:a"&range("a1").end(xldown ).row).select.

либо сначала вычеслить последнюю пустую ячейку:

x = 1
Do While Range("A" & x) <> ""
x = x + 1
Loop

и только затем выделить:
range("a1:a" & x - 1 ).select

[SAS888]

Необходимо заметить, что предложенные способы будут корректно работать только тогда, когда ячейка "A1" не пуста. Т.е. либо нужно это знать, либо предварительно определять - с какой ячейки начинать.

[Rom1k06]

а если перебать все непустые ячейки в столбце до первой не пустой или все.
For i = 1 To Sheets("Лист1").Cells(Sheets("Лист1 ").Rows.Count, "A").End(xlUp).Row
if ="" then exit sub
x = 1
Do While .cells(x,1) <> ""
x = x + 1
Loop
Sheets("Лист2").cells(i,1)=Sheets(" Лист1").cells(x.1)

Если я неправ то поправьте меня плиз.

[SerArtur]

Копирует книгу с листом - 1
Private Sub CommandButton1_Click()
With Workbooks.Add(xlWBATWorksheet)
Me.Cells.Copy Destination:=.Worksheets(1).Cells
End With
End Sub
А вот прикольный макрос
создай книгу в D:\Account\TOTAL.xls

Private Sub CommandButton1_Click()
iFileName$ = "D:\Account\TOTAL.xls с назжанием листа - 1

If Dir(iFileName$) <> "" Then
With Application
.ScreenUpdating = False
With .Workbooks.Open(Filename:=iFileName $)
.Worksheets(1).Range("A1:A700").Val ue = Workbooks("Big Book.xls").Worksheets("Big Book").Range("A1:A700").Value
.Worksheets(1).Range("B1:B700").Val ue = Workbooks("Big Book.xls").Worksheets("Big Book").Range("B1:B700").Value
.Worksheets(1).Range("F1:F700").Val ue = Workbooks("Big Book.xls").Worksheets("Big Book").Range("C1:C700").Value
.Worksheets(1).Range("G1:G700").Val ue = Workbooks("Big Book.xls").Worksheets("Big Book").Range("D1:D700").Value

.Close saveChanges:=True
End With
.ScreenUpdating = True
End With
Else
MsgBox "Gotow"
End If

End Sub