不连续区域不连续单元格的复制和粘贴,在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>仅数值)调用宏程序即可粘贴。 |