![EXCEL怎么将复制的内容粘贴到可见单元格_第1页](http://file3.renrendoc.com/fileroot_temp3/2022-2/3/0befa4e1-30c7-41da-b8ac-06cb2f53c912/0befa4e1-30c7-41da-b8ac-06cb2f53c9121.gif)
![EXCEL怎么将复制的内容粘贴到可见单元格_第2页](http://file3.renrendoc.com/fileroot_temp3/2022-2/3/0befa4e1-30c7-41da-b8ac-06cb2f53c912/0befa4e1-30c7-41da-b8ac-06cb2f53c9122.gif)
![EXCEL怎么将复制的内容粘贴到可见单元格_第3页](http://file3.renrendoc.com/fileroot_temp3/2022-2/3/0befa4e1-30c7-41da-b8ac-06cb2f53c912/0befa4e1-30c7-41da-b8ac-06cb2f53c9123.gif)
![EXCEL怎么将复制的内容粘贴到可见单元格_第4页](http://file3.renrendoc.com/fileroot_temp3/2022-2/3/0befa4e1-30c7-41da-b8ac-06cb2f53c912/0befa4e1-30c7-41da-b8ac-06cb2f53c9124.gif)
![EXCEL怎么将复制的内容粘贴到可见单元格_第5页](http://file3.renrendoc.com/fileroot_temp3/2022-2/3/0befa4e1-30c7-41da-b8ac-06cb2f53c912/0befa4e1-30c7-41da-b8ac-06cb2f53c9125.gif)
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、本方法要使用EXCEL VBA宏代码进行操作,代码如下:Option ExplicitSub 复制粘贴可见单元格() Dim rgSrc As RangeDim rgDes As RangeDim rg As Range, rgPt As RangeDim strSrcAdd() As StringDim lCnt As Long, i As Long, j As Long, x As Long, y As LongOn Error GoTo ExitPointSet rgSrc = Application.InputBox("请选择要复制的单元格区域", &qu
2、ot;提示", , , , , , 8)If rgSrc.Columns.Count > rgSrc.Parent.UsedRange.Columns.Count ThenSet rgSrc = rgSrc.Parent.Range(rgSrc.Item(1, 1), rgSrc.Item(rgSrc.Rows.Count, rgSrc.Parent.UsedRange.Columns.Count)End IfIf rgSrc.Rows.Count > rgSrc.Parent.UsedRange.Rows.Count ThenSet rgSrc = rgSrc.Pare
3、nt.Range(rgSrc.Item(1, 1), rgSrc.Item(rgSrc.Parent.UsedRange.Rows.Count, rgSrc.Columns.Count)End IfSet rgDes = Application.InputBox("请选择要粘贴的单元格位置", "提示", , , , , , 8)Application.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualSet rgPt = rgDes.Cells(1, 1)ReDim s
4、trSrcAdd(0)For Each rg In rgSrcIf Not (rg.Height = 0 Or rg.Width = 0) ThenReDim Preserve strSrcAdd(UBound(strSrcAdd) + 1)strSrcAdd(UBound(strSrcAdd) = rg.AddressEnd IfNext rglCnt = 0For Each rg In rgSrc.Parent.Range(rgSrc.Rows(1).Address)If rg.Width <> 0 ThenlCnt = lCnt + 1End IfNextstrSrcAdd(
5、0) = lCnti = 0j = 0x = 0y = 0For lCnt = 1 To UBound(strSrcAdd)lp: If (lCnt - 1) strSrcAdd(0) + i > x Thenj = 0End Ifx = (lCnt - 1) strSrcAdd(0) + iy = (lCnt - 1) Mod strSrcAdd(0) + jSet rg = rgPt.Offset(x, y)If rg.Width = 0 Thenj = j + 1GoTo lpElseIf rg.Height = 0 Theni = i + 1j = 0GoTo lpElserg.
6、Value = rgSrc.Parent.Range(strSrcAdd(lCnt)End IfNext lCntrgDes.Parent.ActivateExitPoint:Application.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticEnd Sub下面将以一个示例的方式,演示如何使用以上代码。图中标黄色的为要隐藏的单元格,隐藏前后效果如图所示。在相应的工作表上点击右键,在弹出的窗口中选择“查看代码”在打开的VBE界面中粘贴以上复制的代码。在“查看宏”对话框中选择并运行名为“复制粘贴可见单元格”的宏。宏的使用方法,请另外百度。先选
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 期末模拟试卷(试题)-2023-2024学年人教版六年级下册数学
- 《我能行》大班教案
- 《谁的脚印》小班教案5篇
- 人工智能行业市场前景及投资研究报告:AI时代,内容创作者焦虑
- 瑞典影响力营销行业市场前景及投资研究报告-培训课件外文版2024.5
- 口腔护理与肠胃调理课件
- 2024版别墅项目精装修工程设计委托合同书
- 护理安全教育案例及分析总结(3篇模板)
- 红色教育主题展馆(3篇模板)
- 红色教育项目申报书(3篇模板)
- 脑出血后遗症的物理治疗手段及其疗效评价
- 2024年湖北武汉市法院系统雇员制审判辅助人员招聘245人历年高频考题难、易错点模拟试题(共500题)附带答案详解
- 第13课 学会依法维权 (教案)-【中职专用】中职思想政治《职业道德与法治》高效课堂课件+教案(高教版2023·基础模块)
- 手机市场调研总结与反思
- 【浅论后疫情时代消费者行为的变化3800字(论文)】
- 市场营销策划(本)-形考任务三(第八~十章)-国开(CQ)-参考资料
- 2022-2023学年天津市部分区七年级(下)期末英语试卷(含答案)
- 小学数学作业的创新设计
- 2024届江苏省南京市南京外国语校中考物理猜题卷含解析
- 业绩提升行动计划方案
- 工业设备搬迁标书
评论
0/150
提交评论