如何将筛选后的简历表格粘贴可见单元

　　筛选后的简历表格是可以复制粘贴到其他可见单元格的，今天学习啦小编就与大家分享将筛选后的简历表格粘贴可见单元的方法，希望对大家的学习有帮助!

　　将筛选后的简历表格粘贴可见单元的方法1

学习啦在线学习网 　　1首先，点击excel程序左下角的【录制宏】按钮录制宏。选择录制到【个人宏工作簿】后点击【确定】按钮。

　　2开始录制宏后什么都不操作，马上点击【停止录制宏】按钮。

　　3按Alt+F11进入VBE界面，打开“个人宏工作簿”，可以看到增加了一个模块。

　　4将模块代码更新成下述代码后点击【保存】按钮。

学习啦在线学习网 　　Sub 多区域复制粘贴()

　　On Error Resume Next

　　Dim SRange() As Range, UPRange As Range, TRange As Range

学习啦在线学习网 　　Dim i As Long, AreaNum As Long

　　Dim MinR As Long, MinC As Long

学习啦在线学习网 　　AreaNum = Selection.Areas.Count

学习啦在线学习网 　　ReDim SRange(1 To AreaNum)

　　MinR = ActiveSheet.Rows.Count

学习啦在线学习网 　　MinC = ActiveSheet.Columns.Count

学习啦在线学习网 　　For i = 1 To AreaNum

　　Set SRange(i) = Selection.Areas(i)

　　If SRange(i).Row < MinR Then MinR = SRange(i).Row

学习啦在线学习网 　　If SRange(i).Column < MinC Then MinC = SRange(i).Column

　　Next i

学习啦在线学习网 　　Set UPRange = Cells(SRange(1).Row, SRange(1).Column)

　　Set TRange = Application.InputBox(prompt:="选择粘贴区域的最左上角单元格", Title:="多区域复制粘贴", Type:=8)

　　Application.ScreenUpdating = False

　　For i = 1 To AreaNum

　　SRange(i).Copy

　　TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:=xlPasteValues

　　Next i

　　Application.ScreenUpdating = True

　　End Sub

　　回到Excel界面，右键单击快速访问工具栏，选择【自定义快速访问工具栏】。

　　如下图设置和选择，并点击【添加】按钮。

学习啦在线学习网 　　这样，在工具栏就出现了一个新的按钮，指定到了刚才加入的代码。

　　下面来测试一下。

学习啦在线学习网 　　原始数据A列姓名包含重复的“张三”。

学习啦在线学习网 　　我们筛选“张三”，用鼠标选中所有数据。然后按Ctrl+G调出【定位】对话框，选择【定位条件】。

　　选择【可见单元格】，然后点击【确定】按钮。

　　点击刚才插入的按钮。

　　下面会弹出来如下的对话框。

　　注意：只需要用鼠标选择要粘贴区域的最左上角单元格即可。

　　选中想要粘贴的单元格，然后点击【确定】按钮，数据就粘贴出来了。

学习啦在线学习网 　　我们取消A列的筛选，可以看到复制的数据也粘贴到了筛选出来的行中。

　　15注意：

　　设置代码在个人宏工作簿中就可以使代码功能在这台电脑上对所有工作簿都可用。

看过“将筛选后的简历表格粘贴可见单元的方法”的人还看了：

1.如何将数据复制粘贴到筛选后简历表单元格

2.如何把数据粘贴到筛选后的简历表格

3.excel2010粘贴到筛选后简历表格的方法

4.怎么往筛选后的简历表格粘贴

5.怎么粘贴筛选后的简历表格