当前位置:首页 > 微软office > Excel > 正文内容

多区域复制粘贴

zyhwxm4年前 (2022-02-09)Excel148
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



版权声明:本文版权归原作者所有,仅供技术参考;

                 若有违反您个人权益,请留言反馈删除相关信息;


本文链接:http://zyh-c.myds.me:8086/post/6.html

相关文章

多工作簿数据合并,此法一劳永逸

多工作簿数据合并,此法一劳永逸

如下图,是某集团下属各公司的销售数据,分别存放在不同工作簿内: 每个工作簿内还有多个工作表: 这些数据要进行汇总分析之前,先要合并到同一个工作表内,接下来咱们以Excel 2016为例,看看如何气质优雅的完成这样的数据汇总。 步...

六个Excel序号技巧,新手老手都实用

六个Excel序号技巧,新手老手都实用

一、序列填充生成序号适用范围:生成较少的常规序号。 在首个单元格内输入数字1,然后按住单元格右下角的填充柄向下拖动,然后在【自动填充选项】中选择【序列填充】。  二、直接拖动生成序号适用范围:生成任意步长值的序...

手把手教你,学会提取不重复值

手把手教你,学会提取不重复值

一维区域筛选不重复记录示例26-7    提取客户代表姓名图26-8展示的是某单位销售记录表的部分内 容,需要提取不重复的客户代表姓名。1. MATCH函数去重法在F2单元格中输入以下数组公式,按<Ctrl+Shi...

八个公式真简单,月薪少说三千三

八个公式真简单,月薪少说三千三

小伙伴们好啊,今天和大家分享一组常用的函数套路,小伙伴们遇到类似问题可以直接拿来套用即可。1、IF函数用来完成非此即彼的判断。如下图,要判断成绩是否合格。公式:=IF(C2>=60,"及格","不及格")用法...

COUNTIF函数经典用法合集

COUNTIF函数经典用法合集

小伙伴们好啊,今天老祝和大家分享一组COUNTIF函数的经典用法。COUNTIF函数主要用于统计满足某个条件的单元格的数量,基本用法为:COUNTIF(统计区域,指定的条件)其中指定的条件可以是数字、文字,或者是一...

IF函数,专治选择困难症

IF函数,专治选择困难症

小伙伴们好啊,今天咱们说一个看起来特别简单,但是用处特别大的函数——IF。如果有妹纸问你,这个周末准备怎么过?你会说:看天气情况吧,不同的天气,我的选择也不一样。每个包含“如果……那么……否则……”的句子,在Exc...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。