应用场景

将excel黏贴时仅仅黏贴在显示的单元格中(当目标区域中有隐藏行、列、或者目标区域处于筛选状态,excel黏贴数据时不会跳过隐藏区域)

知识要点

1：SpecialCells(xlCellTypeVisible) 定位可见区域，

2：如果被复制区域有隐藏区域，那么创建一个辅助工作表，将被复制区域的可见区域黏贴到辅助工作表

3：黏贴后的区域不在存在隐藏区域，然后将选区的单元格逐个复制到目标区域，在复制时检查它的状态是否为显示

Sub 黏贴数据时跳过隐藏区()

Dim Rng As Range, Rngg As Range, Cell As Range, i As Long, Rang As Range, Sht As Worksheet, j As Integer, Col_count As Integer

On Error Resume Next

If TypeName(Selection) = "Range" Then \'仅仅对选择对象是单元格者进行操作

Set Sht = ActiveSheet \'将当前工作表赋值给变量sht

\'确定黏贴的目标区域

Set Cell = Application.InputBox("请选择目标区域存放区域，一个单元格即可", "目标区域", , , , , , 8)

If Err <> 0 Then Exit Sub \'如果有错误则退出

Application.ScreenUpdating = False \'关闭屏幕刷新

With Selection.SpecialCells(xlCellTypeVisible) \'定位选区的可见区域

If .Address <> Selection.Address Then

\'如果可见区域地址与选区的地址不一致

Selection.SpecialCells(xlCellTypeVisible).Copy \'复制选区的可见区域

Sheets.Add after:=Sheets(Sheets.Count) \'添加一个新表

ActiveSheet.Paste \'黏贴数据

Set Rngg = Selection \'将新表中的选区赋予变量

Else

Set Rngg = Selection

End If

End With

Sht.Select \'返回原工作表

\'确定目标区域列数

For i = 1 To 5000 \'循环

\'如果目标存放区域的第一个单元格向右偏移 i-1 的单元格的列宽大于（也就是说显示状态）

If Cell.Offset(0, i - 1).ColumnWidth > 0 Then

Col_count = Col_count + 1 \'那么累加计数器，该计数器代表显示区域的列数

\'如果计数器等于rngg区域的列数时，终止循环

If Col_count = Rngg.Columns.Count Then GoTo begin

End If

Next i

\'开始复制选区中可见单元格到目标区域中的可见单元格中

begin:

Set Cell = Cell.Resize(Rngg.Rows.Count, i)

\'根据rngg的列数和变量i重新指定cell代表的区域

For Each Rng In Rngg \'遍历rngg区域(外层循环)

For i = 1 To 5000

\'如果cell区域的j +1 个单元格为显示状态，那么终止里层循环

If Cell(j + i).RowHeight > 0 And Cell(j + i).ColumnWidth > 0 Then GoTo Star

Next

Star:

j = j + 1 \'累加变量

Rng.Copy Cell(j) \'逐个复制单元格

Next Rng

If Selection.SpecialCells(xlCellTypeVisible).Address <> Selection.Address Then

Application.DisplayAlerts = False

Sheets(Sheets.Count).Delete

Application.DisplayAlerts = True

End If

Application.ScreenUpdating = True

End If

End Sub