EXCEL怎么将复制的内容粘贴到可见单元格

本方法要使用EXCELVBA宏代码进行操作，代码如下：OptionExplicitSub复制粘贴可见单元格()DimrgSrcAsRangeDimrgDesAsRangeDimrgAsRange,rgPtAsRangeDimstrSrcAdd()AsStringDimlCntAsLong,iAsLong,jAsLong,xAsLong,yAsLongOnErrorGoToExitPointSetrgSrc=Application.InputBox(请选择要复制的单元格区域,提示,,,,,,8)IfrgSrc.Columns.CountrgSrc.Parent.UsedRange.Columns.CountThenSetrgSrc=rgSrc.Parent.Range(rgSrc.Item(1,1),rgSrc.Item(rgSrc.Rows.Count,rgSrc.Parent.UsedRange.Columns.Count))EndIfIfrgSrc.Rows.CountrgSrc.Parent.UsedRange.Rows.CountThenSetrgSrc=rgSrc.Parent.Range(rgSrc.Item(1,1),rgSrc.Item(rgSrc.Parent.UsedRange.Rows.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(UBound(strSrcAdd)+1)strSrcAdd(UBound(strSrcAdd))=rg.AddressEndIfNextrglCnt=0ForEachrgInrgSrc.Parent.Range((rgSrc.Rows(1).Address))Ifrg.Width0ThenlCnt=lCnt+1EndIfNextstrSrcAdd(0)=lCnti=0j=0x=0y=0ForlCnt=1ToUBound(strSrcAdd)lp:If((lCnt-1)\strSrcAdd(0))+ixThenj=0EndIfx=((lCnt-1)\strSrcAdd(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=xlCalculationAutomaticEndSub下面将以一个示例的方式，演示如何使用以上代码。图中标黄色的为要隐藏的单元格，隐藏前后效果如图所示。在相应的工作表上点击右键，在弹出的窗口中选择“查看代码”在打开的VBE界面中粘贴以上复制的代码。在“查看宏”对话框中选择并运行名为“复制粘贴可见单元格”的宏。宏的使用方法，请另外百度。先选择要复制的单元（也可以是整行或整列），然后选择要粘贴的单元格位置（可以多选，也可以只选一个，都是以选择区域的活动单元为开始粘贴位置）。粘贴完成后对比效果如下图，宏只对可见的单元格进行了操作。