学习啦 > 创业指南 > 职场 > 个人简历下载 > 个人简历表格 > 如何把数据粘贴到筛选后的简历表格

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

时间: 如英753 分享

学习啦在线学习网如何把数据粘贴到筛选后的简历表格

学习啦在线学习网   筛选过的简历表格,想要粘贴数据就不是那么容易了,你试过用代码来粘贴吗?下面由学习啦小编教大家把数据粘贴到筛选后简历表格的方法,希望大家有所收获!

  把数据粘贴到筛选后简历表格的方法

  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.excel2010粘贴到筛选后简历表格的方法

3.如何粘贴筛选后的简历表格

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

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

1647200