表格复制,出现不能对多重选定区域解决办法!-小冬SEO
当前位置:SEO优化教程网 > 小冬说 > 正文

表格复制,出现不能对多重选定区域解决办法!

2019-07-26 14:51:00 小冬说 多重选定区域 表格复制不了

很多时候我们为了在表格中赛选某一类具有一种性质的关键词表格时,需要用到ctrl+f查找数据,但是查找出来的结果遍布着各行各列的各个位置,这个时候你想要复制粘贴出来,就会出现《不能对多重选定区域》,在网上找了很多方法,结果都不靠谱,也没有说清楚,这里小冬亲自测试过一下方法,确定是可行的,分享给大家,有需要的可以收藏哦!

wps2018版

第一步:开发工具——录制新宏——什么都可以不填,点击确定

表格复制,出现不能对多重选定区域解决办法!

第二步:点击——停止录制

第三步:点击——宏

第四步:点选你刚才新建的宏,点击——编辑

表格复制,出现不能对多重选定区域解决办法!

第五步:复制下面内容到编辑框(覆盖之前内容)ctrl+s保存

Sub 多区域复制粘贴()
 
    On Error Resume Next
    
    Dim SRange() As Range, UPRange As Range, TRange As Range
    
    Dim i As Long, AreaNum As Long
    
    Dim MinR As Long, MinC As Long
    
    AreaNum = Selection.Areas.Count
    
    ReDim SRange(1 To AreaNum)
    
    MinR = ActiveSheet.Rows.Count
    
    MinC = ActiveSheet.Columns.Count
    
    For i = 1 To AreaNum
    
    Set SRange(i) = Selection.Areas(i)
    
    If SRange(i).Row < MinR Then MinR = SRange(i).Row
    
    If SRange(i).Column < MinC Then MinC = SRange(i).Column
    
    Next i
    
    Set UPRange = Cells(SRange(1).Row, SRange(1).Column)
    
    Set TRange = Application.InputBox(prompt:="选择粘贴区域的最左上角单元格", Title:="多区域复制粘贴", Type:=8)
    
    Application.ScreenUpdating = False
    
    For i = 1 To AreaNum
    
    SRange(i).Copy
    
    TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial Paste:=xlPasteValues
    
    Next i
    
    Application.ScreenUpdating = True
 
End Sub

表格复制,出现不能对多重选定区域解决办法!

第六步:在表格中,点选或者全选你要复制的的区域(ctrl+f可以查找表格中所有相同属性的单元格,然后你可以全选这些区域)

第七步:在当前选中区域表格界面,点击——开发工具——宏,点击——运行;(注意:如果你同时还打开有其他表格,你在《宏的位置》这个地方要选择成你要复制的表格,不懂的,你可以先关掉多余的表格)

表格复制,出现不能对多重选定区域解决办法!

第八步:出现《多区域复制粘贴》,这个时候你可以在当前表格的空白区域任意点击一个位置,或者你可以先新建一个子表格,点击子表格,鼠标选中空白单元格点击,然后确定,这个时候在这个空白区域就能把之前界面中选中的单元格复制出来了。

表格复制,出现不能对多重选定区域解决办法!表格复制,出现不能对多重选定区域解决办法!

希望你能够看得明白,不明白的可以问我,说的很清楚了,喜欢我的分享就收藏着吧!

版权保护: 本文由 -小冬SEO 原创,转载请保留链接: http://www.cdseoyh.cn/shuo/48.html