vba union 具体用法
我想把不相邻的行union一下，copy到剪贴板，下面代码会发生把第3行数据清空和第三行的单元格格式复制到剪贴板，不知道怎么改。Sub a()Dim ra As RangeDim i As IntegerFor 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 IfNextra.CopyEnd Sub
