EXCEL怎么將復制的內(nèi)容粘貼到可見單元格

本方法要使用EXCELVBA宏代碼進行操作，代碼如下：OptionExplicitSub復制粘貼可見單元格()DimrgSrcAsRangeDimrgDesAsRangeDimrgAsRange,rgPtAsRangeDimstrSrcAdd()AsStringDimlCntAsLong,iAsLong,jAsLong,xAsLong,yAsLongOnErrorGoToExitPointSetrgSrc=Application.InputBox("請選擇要復制的單元格區(qū)域"，"提示"，……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(O)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=0EndIfx=((ICnt-1)\strSrcAdd(0))+iy=((ICnt-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下面將以一個示例的方式，演示如何使用以上代碼。圖中標黃色的為要隱藏的單元格，隱藏前后效果如圖所示。33kL 3Z2 凳& &6T?4L ?.>83L 6,2 魯〉 以69aL az 隔? ar-iog】 g： 2 io.a在相應(yīng)的工作表上點擊右鍵，在彈出的窗口中選擇'查看代碼在打開的VBE界面中粘貼以上復制的代碼。

在“查看宏”對話框中選擇并運行名為“復制粘貼可見單元格”的宏。宏的使用方法，請另外百度。盤選再要粘砧的西元格位置先選擇要復制的單元（也可以是整行或整列），然后選擇要粘貼的單元格位置（可以多選，也可以只選一個，都是以選擇區(qū)域的活動單元為開始粘貼位置）。A1 ，BA S <FG HLU_工 I.