请问VBA如何不连续区域复制粘贴，空白区域不改动

maditate

ais9009 发表于 2019-7-25 20:31
分块后执行一次宏就可以吗？ 主要是粘贴区域会有所变动

分块Copy已经搞成功了，粘贴就不会了。

Sub TEST()

myADD = Selection.Address
Cells(1, 1) = myADD
   arr = Split(myADD, ",")
If UBound(arr) <> -1 Then
   For h = LBound(arr) To UBound(arr)
      Range(arr(h)).Copy
   Next h
End If

End Sub

killq

maditate 发表于 2019-7-25 21:29
分块Copy已经搞成功了，粘贴就不会了。

Sub TEST()

都循环复制了，再循环paste呗，哈哈

maditate

不连续多区域跨表同区域复制粘贴

Sub TEST()

myADD = Selection.Address
Cells(1, 1) = myADD
   arr = Split(myADD, ",")
If UBound(arr) <> -1 Then
   For h = LBound(arr) To UBound(arr)
      Range(arr(h)).Copy Sheets(2).Range(arr(h))
   Next h
End If

End Sub

ais9009

killq 发表于 2019-7-25 20:54
不知道什么意思，下来看了下也没看明白。明显两个表格的列标签就不完全一致，搞毛的“相对位置不动的粘贴” ...

标签没改。忘记了

mythqiu

ais9009 发表于 2019-7-25 18:11
Public Sub 不连续粘贴()
Application.ScreenUpdating = False
s = Selection.Count

学习了。。。。。

mythqiu

ais9009 发表于 2019-7-25 18:11
Public Sub 不连续粘贴()
Application.ScreenUpdating = False
s = Selection.Count

今天拜读了代码，Range("xfd1").PasteSpecial (xlPasteAll)无法理解，是把这些先粘贴到名称中吗