Добрый вечер Уважаемые знатоки. имеется набросок кода, которы копирует колонки заданные если они открыты(не скрыте).
Но хотелось бы не раскладывать рабочую область на весь стол. Как сделать так что бы заданные колонки копировались если даже они скрыты.
Код |
---|
Dim KH As String Dim aa As Integer aa = ActiveCell.Column Cells(1, aa).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .color = 16738047 .TintAndShade = 0 .PatternTintAndShade = 0 End With Application.Union(Range("R:R,P:P,N:N,M:M,I:I"), ActiveCell.EntireColumn, ActiveCell.Offset(0, 1).Range("B:B")).Select Selection.Copy Workbooks.Open filename:=ThisWorkbook.Path & "\Z-DingDan" |
Но хотелось бы не раскладывать рабочую область на весь стол. Как сделать так что бы заданные колонки копировались если даже они скрыты.