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

本方法要使用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(请选择要复制的单元格区域, 提示, , , , , , 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.Parent.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 strSrcAdd(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(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.Value = rgSrc.Parent.Range(strSrcAdd(lCnt)End IfNext lCntrgDes.Parent.ActivateExitPoint:Application.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticEnd Sub下面将以一个示例的方式，演示如何使用以上代码。图中标黄色的为要隐藏的单元格，隐藏前后效果如图所示。在相应的工作表上点击右键，在弹出的窗口中选择“查看代码”在打开的VBE界面中粘贴以上复制的代码。在“查看宏”对话框中选择并运行名为“复制粘贴可见单元格”的宏。宏的使用方法，请另外百度。先选择要复制