vba union 具体用法

我想把不相邻的行union一下，copy到剪贴板，下面代码会发生把第3行数据清空和第三行的单元格格式复制到剪贴板，不知道怎么改。
Sub a()
Dim ra As Range
Dim i As Integer
For i = 3 To 16 Step 4
If i = 3 Then
Set ra = ActiveWorkbook.ActiveSheet.Range(i & ":" & i)
End If
If i > 3 And i <= 16 Then
ra = Union(ra, ActiveWorkbook.ActiveSheet.Range(i & ":" & i))
End If
Next
ra.Copy
End Sub

不相邻的行 不能复制

你可以手动操作一下，是不行的

使用union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作，如下面的代码所示。 sub unselect() union(sheet5.range("a1:d4"), sheet5.range("e5:h8")).select end sub 代码解析： unselect过程选择单元格a1:d4和e5:h8所组成的区域。union方法返回两个或多个区域的合并区域， 语法如下： expression.union(arg1, arg2, ...) 其中参数expression是可选的，返回一个application对象。 参数arg1, arg2, ...是必需的，至少指定两个range对象。