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

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

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

2开始录制宏后什么都不操作，马上点击【停止录制宏】按钮。 3按Alt+F11进入VBE界面，打开“个人宏工作簿”，可以看到增加了一个模块。

4将模块代码更新成下述代码后点击【保存】按钮。 Sub多区域复制粘贴() OnErrorResumeNext

DimSRange()AsRange,UPRangeAsRange,TRangeAsRange DimiAsLong,AreaNumAsLong DimMinRAsLong,MinCAsLong AreaNum=Selection.Areas.Count ReDimSRange(1ToAreaNum) MinR=ActiveSheet.Rows.Count MinC=ActiveSheet.Columns.Count Fori=1ToAreaNum

SetSRange(i)=Selection.Areas(i)

IfSRange(i).Row

SetUPRange=Cells(SRange(1).Row,SRange(1).Column)

SetTRange=Application.InputBox(prompt:=\选择粘贴区域的最左上角单元格\多区域复制粘贴\

Application.ScreenUpdating=False Fori=1ToAreaNum SRange(i).Copy

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

Nexti

Application.ScreenUpdating=True EndSub

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

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

下面来测试一下。

原始数据A列姓名包含重复的“张三”。 选择【可见单元格】，然后点击【确定】按钮。 点击刚才插入的按钮。 下面会弹出来如下的对话框。

注意：只需要用鼠标选择要粘贴区域的最左上角单元格即可。 选中想要粘贴的单元格，然后点击【确定】按钮，数据就粘贴出来了。

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

15注意：

看过“把数据粘贴到筛选后简历表格的方法”的人还看了：