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

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

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

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

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18