欢迎访问易文君范文网!

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

初中作文 分享 时间: 加入收藏 我要投稿 点赞

怎么往筛选后的简历表格粘贴qnW易文君-文库范文网

  我们在制作简历的时候,会遇到筛选出某些数据,复制后需要粘贴到筛选状态下的单元格的情况,今天第一范文网小编要教大家怎么往筛选后的简历表格粘贴,一起来学习下吧!qnW易文君-文库范文网

往筛选后的简历表格粘贴的方法

  1首先,点击excel程序左下角的【录制宏】按钮录制宏。选择录制到【个人宏工作簿】后点击【确定】按钮。qnW易文君-文库范文网

  2开始录制宏后什么都不操作,马上点击【停止录制宏】按钮。qnW易文君-文库范文网

  3按Alt+F11进入VBE界面,打开“个人宏工作簿”,可以看到增加了一个模块。qnW易文君-文库范文网

  4将模块代码更新成下述代码后点击【保存】按钮。qnW易文君-文库范文网

  Sub 多区域复制粘贴qnW易文君-文库范文网

  On Error Resume NextqnW易文君-文库范文网

  Dim SRange As Range, UPRange As Range, TRange As RangeqnW易文君-文库范文网

  Dim i As Long, AreaNum As LongqnW易文君-文库范文网

  Dim MinR As Long, MinC As LongqnW易文君-文库范文网

  AreaNum = Selection.Areas.CountqnW易文君-文库范文网

  ReDim SRange(1 To AreaNum)qnW易文君-文库范文网

  MinR = ActiveSheet.Rows.CountqnW易文君-文库范文网

  MinC = ActiveSheet.Columns.CountqnW易文君-文库范文网

  For i = 1 To AreaNumqnW易文君-文库范文网

  Set SRange(i) = Selection.Areas(i)qnW易文君-文库范文网

  If SRange(i).Row < MinR Then MinR = SRange(i).RowqnW易文君-文库范文网

  If SRange(i).Column < MinC Then MinC = SRange(i).ColumnqnW易文君-文库范文网

  Next iqnW易文君-文库范文网

  Set UPRange = Cells(SRange(1).Row, SRange(1).Column)qnW易文君-文库范文网

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

  Application.ScreenUpdating = FalseqnW易文君-文库范文网

  For i = 1 To AreaNumqnW易文君-文库范文网

  SRange(i).CopyqnW易文君-文库范文网

  TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:=xlPasteValuesqnW易文君-文库范文网

  Next iqnW易文君-文库范文网

  Application.ScreenUpdating = TrueqnW易文君-文库范文网

  End SubqnW易文君-文库范文网

  回到Excel界面,右键单击快速访问工具栏,选择【自定义快速访问工具栏】。qnW易文君-文库范文网

  如下图设置和选择,并点击【添加】按钮。qnW易文君-文库范文网

  这样,在工具栏就出现了一个新的按钮,指定到了刚才加入的代码。qnW易文君-文库范文网

  下面来测试一下。qnW易文君-文库范文网

  原始数据A列姓名包含重复的“张三”。qnW易文君-文库范文网

  我们筛选“张三”,用鼠标选中所有数据。然后按Ctrl+G调出【定位】对话框,选择【定位条件】。qnW易文君-文库范文网

  选择【可见单元格】,然后点击【确定】按钮。qnW易文君-文库范文网

  点击刚才插入的按钮。qnW易文君-文库范文网

  下面会弹出来如下的对话框。qnW易文君-文库范文网

  注意:只需要用鼠标选择要粘贴区域的最左上角单元格即可。qnW易文君-文库范文网

  选中想要粘贴的单元格,然后点击【确定】按钮,数据就粘贴出来了。qnW易文君-文库范文网

  我们取消A列的筛选,可以看到复制的数据也粘贴到了筛选出来的行中。qnW易文君-文库范文网

  15注意:qnW易文君-文库范文网

  设置代码在个人宏工作簿中就可以使代码功能在这台电脑上对所有工作簿都可用。qnW易文君-文库范文网

精选图文

165377
领取福利

微信扫码领取福利

微信扫码分享