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

第 PAGE 页码 页码页 / 总共 NUMPAGES 总页数 总页数页 怎样往挑选后的简历表格张贴 　　 咱们在制造简历的时分，会遇到挑选出某些数据，仿制后需求张贴到挑选状态下的单元格的状况，今日我要教咱们怎样往挑选后的简历表格张贴，一起来学习下吧! 往挑选后的简历表格张贴的办法 　　 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留意： 　　 设置代码在个人宏作业簿中就能够使代码功用在这台电脑上对一切作业簿都可用。