EXCEL中可以通过设置(快捷方式Ctrl+G)定位-->定位条件-->可见单元格来选择并复制可见单元格，但是如果将复制的单元格粘贴到包含隐藏单元格的区域时，EXCEL不会自动跳过这些隐藏的单元格，影响编辑效果。通过以下方法可以实现只对可见的单元格进行复制和粘贴的操作。
前期准备工作（包括相关工具或所使用的原料等）
各版本EXCEL详细的操作方法或具体步骤
本方法要使用EXCEL VBA宏代码进行操作，代码如下：
Option Explicit
Sub 复制粘贴可见单元格()
Dim rgSrc As Range
Dim rgDes As Range
Dim rg As Range, rgPt As Range
Dim strSrcAdd() As String
Dim lCnt As Long, i As Long, j As Long, x As Long, y As Long
On Error GoTo ExitPoint
Set rgSrc=Application.InputBox("请选择要复制的单元格区域", "提示", , , , , , 8)
If rgSrc.Columns.Count > rgSrc.Parent.UsedRange.Columns.Count Then
Set rgSrc=rgSrc.Parent.Range(rgSrc.Item(1, 1), rgSrc.Item(rgSrc.Rows.Count, rgSrc.Parent.UsedRange.Columns.Count))
End If
If rgSrc.Rows.Count > rgSrc.Parent.UsedRange.Rows.Count Then
Set rgSrc=rgSrc.Parent.Range(rgSrc.Item(1, 1), rgSrc.Item(rgSrc.Parent.UsedRange.Rows.Count, rgSrc.Columns.Count))
End If
Set rgDes=Application.InputBox("请选择要粘贴的单元格位置", "提示", , , , , , 8)
Application.ScreenUpdating=False
Application.Calculation=xlCalculationManual
Set rgPt=rgDes.Cells(1, 1)
ReDim strSrcAdd(0)
For Each rg In rgSrc
If Not (rg.Height=0 Or rg.Width=0) Then
ReDim Preserve strSrcAdd(UBound(strSrcAdd) + 1)
strSrcAdd(UBound(strSrcAdd))=rg.Address
End If
Next rg
lCnt=0
For Each rg In rgSrc.Parent.Range((rgSrc.Rows(1).Address))
If rg.Width <> 0 Then
lCnt=lCnt + 1
End If
Next
strSrcAdd(0)=lCnt
i=0
j=0
x=0
y=0
For lCnt=1 To UBound(strSrcAdd)
lp: If ((lCnt - 1) \ strSrcAdd(0)) + i > x Then
j=0
End If
x=((lCnt - 1) \ strSrcAdd(0)) + i
y=((lCnt - 1) Mod strSrcAdd(0)) + j
Set rg=rgPt.Offset(x, y)
If rg.Width=0 Then
j=j + 1
GoTo lp
ElseIf rg.Height=0 Then
i=i + 1
j=0
GoTo lp
Else
rg.Value=rgSrc.Parent.Range(strSrcAdd(lCnt))
End If
Next lCnt
rgDes.Parent.Activate
ExitPoint:
Application.ScreenUpdating=True
Application.Calculation=xlCalculationAutomatic
End Sub
下面将以一个示例的方式，演示如何使用以上代码。
图中标黄色的为要隐藏的单元格，隐藏前后效果如图所示。
在相应的工作表上点击右键，在弹出的窗口中选择“查看代码”
在打开的VBE界面中粘贴以上复制的代码。
在“查看宏”对话框中选择并运行名为“复制粘贴可见单元格”的宏。宏的使用方法，请另外百度。
先选择要复制的单元（也可以是整行或整列），然后选择要粘贴的单元格位置（可以多选，也可以只选一个，都是以选择区域的活动单元为开始粘贴位置）。
粘贴完成后对比效果如下图，宏只对可见的单元格进行了操作。
注意事项
不可以跨工作簿操作经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-