VBA复习-6-26

1.偏移到未知行，加表头等。

Sub offset应用1()
Dim i%
For i = 2 To 8 Step 2
    [a1:e1].Copy [a1:e1].Offset(i)
Next i

End Sub

2.resize属性 调整区域

'Range.Resize 属性

'调整指定区域的大小。返回 Range 对象，该对象代表调整后的区域。

3.删除空行
Sub test1()
Dim rng As Range, ads As String
For Each rng In [a1:a10]
    If rng = "" Then ad = ad & rng.Address & ","
Next
ads = Left(ad, Len(ad) - 1)
Range(ads).EntireRow.Delete
End Sub

-第三章完