Developing.ru

Помогите, пожалуйста, в решении следующей проблемы. Есть лист с данными более 2000 строк, подводятся итоги по одной из колонок, в дальнейшем эти итоги нужно скопировать новый лист. На данный момент приходиться, с помощью такого макроса:

Sub Макрос1()
Selection.Copy
Sheets("Лист1").Select
Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

копировать по одной строке, так как при попытке скопировать все видимые строчки копируются вообще все строчки. Каким образом можно скопировать весь видимый диапазон (итоги)

Заранее спасибо!

Попробуйте что-то вроде этого:

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

[color=darkblue]Sub[/color] test()
    [color=darkblue]Dim[/color] sh [color=darkblue]As[/color] Worksheet, ra [color=darkblue]As[/color] Range: [color=darkblue]Set[/color] sh = ActiveSheet
    Application.ScreenUpdating = [color=darkblue]False[/color]
    [color=darkblue]Set[/color] ra = Intersect(sh.UsedRange, sh.Cells.SpecialCells([B][color="Red"]xlCellTypeVisible[/color][/B]))
    ra.EntireRow.Copy Worksheets("Лист2").Cells(1)
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Вариант, предложенный EducatedFool выдаст ошибку, если кроме скрытых строк на рабочем листе присутствуют еще и скрытые столбцы.
Предлагаю немного скорректировать код (если автор ответа не возражает).
Этот вариант чуть проще и не вызовет ошибки при скрытых строках и столбцах.

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

Sub test2()
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy Worksheets("Лист2").Cells(1)
End Sub

Developing.ru

Как скопировать видимый диапазон?!

Как скопировать видимый диапазон?!

Re: Как скопировать видимый диапазон?!

Re: Как скопировать видимый диапазон?!