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

第 PAGE 页码 页码 页 / 总页数 NUMPAGES 总页数 总页数 页 如何将筛选后的简历表格粘贴可见单元 导读：我根据大家的需要整理了一份关于《如何将筛选后的简历表格粘贴可见单元》的内容，具体内容：筛选后的简历表格是可以复制粘贴到其他可见单元格的，今天我就与大家分享将筛选后的简历表格粘贴可见单元的方法，希望对大家的学习有帮助!将筛选后的简历表格粘贴可见单元的方法1... 筛选后的简历表格是可以复制粘贴到其他可见单元格的，今天我就与大家分享将筛选后的简历表格粘贴可见单元的方法，希望对大家的学习有帮助! 将筛选后的简历表格粘贴可见单元的方法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注意： 设置代码在个人宏工作簿中就可以使代码功能在这台电脑上对所有工作簿都可用。 将筛选后的简历表格粘贴可见单元的方法