系列文章目录

文章目录

系列文章目录
前言
一、多区域复制粘贴
二、批量提取批注
- 1.效果如下
- 2.源码
总结

前言

一、多区域复制粘贴

Sub 多区域复制粘贴()On Error Resume NextDim SRange() As Range, UPRange As Range, TRange As RangeDim i As Long, AreaNum As LongDim MinR As Long, MinC As LongAreaNum = Selection.Areas.countReDim SRange(1 To AreaNum)MinR = ActiveSheet.Rows.countMinC = ActiveSheet.Columns.countFor i = 1 To AreaNumSet SRange(i) = Selection.Areas(i)If SRange(i).Row < MinR Then MinR = SRange(i).RowIf SRange(i).Column < MinC Then MinC = SRange(i).ColumnNext iSet UPRange = Cells(SRange(1).Row, SRange(1).Column)Set TRange = Application.InputBox(prompt:="选择粘贴区域的最左上角单元格", Title:="多区域复制粘贴", Type:=8)Application.ScreenUpdating = FalseFor i = 1 To AreaNumSRange(i).CopyTRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial Paste:=xlPasteValuesNext iApplication.ScreenUpdating = TrueEnd Sub

二、批量提取批注

1.效果如下

将散落的批注，批量提取到指定区域

2.源码

需要根据实际情况修改区域

Sub test()
Application.ScreenUpdating = False
Dim i, j As Integer
Dim rg As Range
i = 2
For Each rg In Range("A5:BC20")If rg = "NG" ThenFor j = 1 To 7If Cells(4, rg.Column - j) = "穴号" Thencol = rg.Column - jExit ForEnd IfNextCells(i, 68) = Cells(3, col).ValueCells(i, 69) = Cells(4, rg.Column).ValueCells(i, 70) = Cells(rg.Row, 1).ValueCells(i, 71) = rg.Comment.Texti = i + 1End If
NextFor Each rg In Range("A23:BC38")If rg = "NG" ThenFor j = 1 To 7If Cells(22, rg.Column - j) = "穴号" Thencol = rg.Column - jExit ForEnd IfNextCells(i, 68) = Cells(21, col).ValueCells(i, 69) = Cells(22, rg.Column).ValueCells(i, 70) = Cells(rg.Row, 1).ValueCells(i, 71) = rg.Comment.Texti = i + 1End If
NextFor Each rg In Range("A41:BC56")If rg = "NG" ThenFor j = 1 To 7If Cells(40, rg.Column - j) = "穴号" Thencol = rg.Column - jExit ForEnd IfNextCells(i, 68) = Cells(39, col).ValueCells(i, 69) = Cells(40, rg.Column).ValueCells(i, 70) = Cells(rg.Row, 1).ValueCells(i, 71) = rg.Comment.Texti = i + 1End If
NextFor Each rg In Range("A59:BC74")If rg = "NG" ThenFor j = 1 To 7If Cells(58, rg.Column - j) = "穴号" Thencol = rg.Column - jExit ForEnd IfNextCells(i, 68) = Cells(57, col).ValueCells(i, 69) = Cells(58, rg.Column).ValueCells(i, 70) = Cells(rg.Row, 1).ValueCells(i, 71) = rg.Comment.Texti = i + 1End If
NextFor Each rg In Range("A77:BC100")If rg = "NG" ThenFor j = 1 To 7If Cells(76, rg.Column - j) = "穴号" Thencol = rg.Column - jExit ForEnd IfNextCells(i, 68) = Cells(75, col).ValueCells(i, 69) = Cells(76, rg.Column).ValueCells(i, 70) = Cells(rg.Row, 1).ValueCells(i, 71) = rg.Comment.Texti = i + 1End If
NextApplication.ScreenUpdating = True
End Sub

总结

分享：
人，能真正坚持一辈子的东西太少了。世上的路有千万条，能够让我们选择的只有一条，你不可能同时在两条路上行走，选择适宜自己走的就好，别人走的不一定永远平坦，而你走的也不会永远曲折。

【excel实战】-- 批量提取批注多重区域复制粘贴相关推荐

excel怎么批量提取指定网站内容-免费指定网站提取导出excel软件
excel怎么批量提取指定网站内容?Excel是人们经常使用的一种办公软件,掌握正确的使用方法和技巧是很有用的Excel是Microsoft为使用Windows和Apple Macintosh操作系统 ...
Excel表格中如何快速跨表复制粘贴，将表1数据一键复制到表2、表3、表4
Excel表格中如何快速跨表复制粘贴,将表1数据一键复制到表2.表3.表4 目录 Excel表格中如何快速跨表复制粘贴,将表1数据一键复制到表2.表3.表4 1.按住Shift键选中工作表2.表3.表 ...
Excel如何批量删除批注
如下图表格区域中含有多个批注,现在想要将这些批注批量删除. 全选要删除批注的单元格区域点击下图选项(Excel工具箱,百度即可了解详细的下载安装方法,本文这里不作详细叙述) 选择[批量删除] 选择[ ...
怎么批量提取html文件中的链接,excel怎么批量提取超链接
excel中有很多内容是添加超链接的,现在想直接提取所有内容的超链接,该如何进行批量提取呢?下面就跟学习啦小编一起来看看吧. excel批量提取超链接的步骤 1.通常我们从网站后台导出的标题是带日期的 ...
批量提取文件名到excel，批量提取文件名到excel表格
如何批量提取文件名到excel表格?工作中我们经常需要将一些文件的名称提取到excel表格里面,一般我们采用两种提取方法:文件数量不多的时候(比如几十个),只需要一个一个复制然后粘贴到excel文件表 ...
Excel如何批量在批注后面添加指定文本
如下图销量列单元格含有大量批注,现在想要批量在批注后面添加指定文本"1月份" 选中销售列单元格区域点击[DIY工具箱](Excel插件,百度即可了解详细的下载安装方法,本文这里不 ...
excel表批量提取文件夹里面的文件名称
很多人在数据初始化过程中经常会遇到一个问题,怎么将数量庞大的文件名称全部提出出来?用excel表简单4步,轻松搞定. ①将需要批量提取文件名的[文件]都存放在同一个[文件夹]中 ②在[文件夹]中用键盘 ...
excel小写转大写公式_一个复制粘贴的问题，竟然难倒了90%的Excel人【Excel表格制作教程】...
点击蓝字发送[目录]送你200篇独家Excel精华教程全套Excel视频,限时特价,扫码观看! 如果我对你说,我可以将一个连续区域中的值,快速粘贴到筛选后不连续的区域中,你信吗?例如要将下图右侧连续 ...
【Excel】批量提取超链接中的链接地址
如何从Excel中的超链接中提取实际地址? 假设您有一个包含超链接的单元格区域,现在您需要查看超链接的真实目的地并从超链接中提取它们,如下面的屏幕截图所示. 有没有简单的方法可以快速解决此问题? 本文 ...

【excel实战】-- 批量提取批注多重区域复制粘贴

系列文章目录

文章目录

前言

一、多区域复制粘贴

二、批量提取批注

1.效果如下

2.源码

总结

【excel实战】-- 批量提取批注多重区域复制粘贴相关推荐

最新文章

热门文章