六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

Excel不连续区域的复制粘贴

Admin | 2010-5-20 11:47:13 | ReadNums | 13112 | 标签 六合开奖结果现场直播 | 打印本页
     

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


问题未解决:在线咨询

屋角斜阳打肖

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日