资源描述:
《EXCEL怎么将复制的内容粘贴到可见单元格》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、本方法要使用EXCELVBA宏代码进行操作,代码如下:OptionExplicitSub复制粘贴可见单元格() DimrgSrcAsRangeDimrgDesAsRangeDimrgAsRange,rgPtAsRangeDimstrSrcAdd()AsStringDimlCntAsLong,iAsLong,jAsLong,xAsLong,yAsLongOnErrorGoToExitPointSetrgSrc=Application.InputBox("请选择要复制的单元格区域","提示",,,,,,8)IfrgSrc.Columns.Count>rgSrc.Pa
2、rent.UsedRange.Columns.CountThenSetrgSrc=rgSrc.Parent.Range(rgSrc.Item(1,1),rgSrc.Item(rgSrc.Rows.Count,rgSrc.Parent.UsedRange.Columns.Count))EndIfIfrgSrc.Rows.Count>rgSrc.Parent.UsedRange.Rows.CountThenSetrgSrc=rgSrc.Parent.Range(rgSrc.Item(1,1),rgSrc.Item(rgSrc.Parent.UsedRange.Row
3、s.Count,rgSrc.Columns.Count))EndIfSetrgDes=Application.InputBox("请选择要粘贴的单元格位置","提示",,,,,,8)Application.ScreenUpdating=FalseApplication.Calculation=xlCalculationManualSetrgPt=rgDes.Cells(1,1)ReDimstrSrcAdd(0)ForEachrgInrgSrcIfNot(rg.Height=0Orrg.Width=0)ThenReDimPreservestrSrcAdd(UBou
4、nd(strSrcAdd)+1)strSrcAdd(UBound(strSrcAdd))=rg.AddressEndIfNextrglCnt=0ForEachrgInrgSrc.Parent.Range((rgSrc.Rows(1).Address))Ifrg.Width<>0ThenlCnt=lCnt+1EndIfNextstrSrcAdd(0)=lCnti=0j=0x=0y=0ForlCnt=1ToUBound(strSrcAdd)lp:If((lCnt-1)strSrcAdd(0))+i>xThenj=0EndIfx=((lCnt-1)strSrcAd
5、d(0))+iy=((lCnt-1)ModstrSrcAdd(0))+jSetrg=rgPt.Offset(x,y)Ifrg.Width=0Thenj=j+1GoTolpElseIfrg.Height=0Theni=i+1j=0GoTolpElserg.Value=rgSrc.Parent.Range(strSrcAdd(lCnt))EndIfNextlCntrgDes.Parent.ActivateExitPoint:Application.ScreenUpdating=TrueApplication.Calculation=xlCalculationAuto
6、maticEndSub下面将以一个示例的方式,演示如何使用以上代码。图中标黄色的为要隐藏的单元格,隐藏前后效果如图所示。在相应的工作表上点击右键,在弹出的窗口中选择“查看代码”在打开的VBE界面中粘贴以上复制的代码。在“查看宏”对话框中选择并运行名为“复制粘贴可见单元格”的宏。宏的使用方法,请另外百度。先选择要复制的单元(也可以是整行或整列),然后选择要粘贴的单元格位置(可以多选,也可以只选一个,都是以选择区域的活动单元为开始粘贴位置)。粘贴完成后对比效果如下图,宏只对可见的单元格进行了操作。