VBA/Excel/Access/Word/Excel/Range Name — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:47, 26 мая 2010
Copy areas
<source lang="vb">
Public Sub CopyAreas()
Dim aRange As Range Dim Destination As Range Set Destination = Worksheets("Sheet3").Range("A1") For Each aRange In Cells.SpecialCells(xlCellTypeConstants, xlNumbers).Areas aRange.Copy Destination:=Destination Set Destination = Destination.Offset(aRange.Rows.Count + 1) Next aRange
End Sub
</source>
Delete the range name
<source lang="vb">
Sub DeleteRangeNames() Dim rName As Name
For Each rName In ActiveWorkbook.Names rName.Delete Next rName
End Sub
</source>