目标区域中有隐藏行、列Excel 黏贴数据时如何跳过隐藏区域（怎样隐藏数据区域以外的行列）

目标区域中有隐藏行、列Excel 黏贴数据时如何跳过隐藏区域（怎样隐藏数据区域以外的行列）

应用场景

将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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。