Excel不连续区域的复制粘贴

awxgaige

不连续区域不连续单元格的复制和粘贴，在Excel中，使用常规的复制粘贴，是无法实现的； 尽管在同一列中，先选中一个单元格，之后按住CTRL键，再选择其它的不相邻的单元格，尽管能复制，但是，当我们将其粘贴到其它地方的时候，往往都不能粘贴出空单元格。    要想在不同列不同的选择区域，实现复制粘贴，可使用如下的两种代码：
一、代码一
Sub 我要粘贴()
Application.ScreenUpdating = False
s = Selection.Count
ReDim arr(s - 1)
For Each Rng In Selection
arr(i) = Rng.Address
i = i + 1
Next
Range("xfd1").PasteSpecial (xlPasteAll)
For i = 0 To s - 1
Range("xfd1").Offset(i, 0).Cut
Range(arr(i)).Select
ActiveSheet.Paste
Next i
Application.ScreenUpdating = True
End Sub
    上述代码功能：复制源区域支持单列中的连续或非连续单元格，粘贴目标区域支持单列或多列连续或非连续单元格。
    二、代码二
Sub 我也要粘贴()
Set MyData = New DataObject
Application.ScreenUpdating = False
MyData.GetFromClipboard
arr = Split(MyData.GetText(1), Chr(13) + Chr(10))
i = 0
For Each Rng In Selection
Rng.Value = arr(i)
i = i + 1
Next
Set MyData = Nothing
Application.ScreenUpdating = True
End Sub
    上述代码功能：仅包含单元格数值，复制源区域支持单列中的连续或非连续单元格，粘贴目标区域支持单列或多列连续或非连续单元格。
    三、上述两种宏代码使用方法
复制的时候按照系统正常的操作方法，选中单元格区域（同列中），按<Ctrl+C>复制或用菜单操作复制。然后选定需要粘贴的目标单元格区域，可以是非连续的区域，再使用快捷键（<Ctrl+Shift+V>包含公式，<Ctrl+Shift+N>仅数值）调用宏程序即可粘贴