Excel中如何复制不连续的多列？

不连续区域不连续单元格的复制和粘贴，在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

上述代码功能：仅包含单元格数值，复制源区域支持单列中的连续或非连续单元格，粘贴目标区域支持单列或多列连续或非连续单元格。

三、上述两种宏代码使用方法

复制的时候按照系统正常的操作方法，选中单元格区域（同列中），按复制或用菜单操作复制。然后选定需要粘贴的目标单元格区域，可以是非连续的区域，再使用快捷键（包含公式，仅数值）调用宏程序即可粘贴