Dzwebs.Net

撰写电脑技术杂文十余年

Excel不连续区域的复制粘贴

Admin | 2010-5-20 11:47:13 | 被阅次数 | 22761

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

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


该杂文来自: Excel杂文

上一篇:excel斜线表头的制作方法

下一篇:在Excel中如何自制自定义宏并使用宏

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计