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

多区域复制粘贴

zyhwxm4年前 (2022-02-09)Excel151
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快捷键,这个才是南波万

Excel中的快捷键实在是太多太多了,你觉会得哪个快捷键最厉害呢?如果有机会让我来给他们排名,我一定要把CTRL+T排在第一位。 让我们来看看它有多牛。 功能1.一键美化。之前的表格是这样子的。按下CTRL+T之后:标题...

学会这些小技巧,加班照样少不了

学会这些小技巧,加班照样少不了

小伙伴们好啊,今天老祝为大家准备了一组简单实用的小技巧,虽然简单,却能解决很多实际问题,咱们一样一样的看:1、用分列计算文本算式就像下图中,B列的文本算式如何计算出正确的结果呢?其实很简单,先依次单击【文件】【 选...

Excel超强大的“切片器”功能,还有人不知道吗?

Excel超强大的“切片器”功能,还有人不知道吗?

今天,跟大家分享一个实用的功能“切片器”,它不仅可以分析数据,而且非常美观。如果你还没有用过,那就跟我一起来看看吧!1转换表格在使用切片器之前,我们需要先将普通的表格转换为超级表,普通表格是无法开启“切片器”的,只...

Excel制作带进度条的日程安排表!

Excel制作带进度条的日程安排表!

今天,教大家制作一份好看的日程安排表,一起来看看吧!1准备工作表格中添加一些内容。然后改成这样。2开始制作01.首先,点开「开发工具」-「插入」-「复选框(窗体控件)」,在每行「状态」中插入,然后删其中的文字内容。...

Excel日期函数

Excel日期函数

提取当日的日期“今天”的英文单词为today。在Excel中也有一个TODAY函数。在F5单元格中输入公式“=TODAY()”,如图11-1所示,便得到了当天的日期:2019/6/4。ENTERTITLE图11-1TODAY函数公式得到的今...

发表评论

访客

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