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

本方法要使用EXCELVBA宏代码进行操作，代码如下：OptionExplicitSub复制粘贴可见单元格() DimrgSrcAsRangeDimrgDesAsRangeDimrgAsRange,rgPtAsRangeDimstrSrcAdd()AsStringDimlCntAsLong,iAsLong,jAsLong,xAsLong,yAsLongOnErrorGoToExitPointSetrgSrc=Application.InputBox("请选择要复制的单元格区域","提示",,,,,,8)IfrgSrc.Columns.Count>rgSrc.Parent.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.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.Width<>0ThenlCnt=lCnt+1EndIfNextstrSrcAdd(0)=lCnti=0j=0x=0y=0ForlCnt=1ToUBound(strSrcAdd)lp:If((lCnt-1)\strSrcAdd(0))+i>xThenj=0推荐精选推荐精选推荐精选EndIfx=((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界面中粘贴以上复制的代码。推荐精选推荐精选推荐精选在“查看宏”对话框中选择并运行名为“复制粘贴可见单元格”的宏。宏的使用方法，请另外百度。先选择要复制的单元（也可以是整行或整列），然后选择要粘贴的单元格位置（可以多选，也可以只选一个，都是以选择区域的活动单元为开始粘贴位置）。推荐精选推荐精选推荐精选粘贴完成后对比效果如下图，宏只对可见的单元格进行了操作。（注：可编辑下载，若有不当之处，请指正，谢谢!）推荐精选推荐精选推荐精选