如何把數(shù)據(jù)粘貼到篩選后的簡歷表格
如何把數(shù)據(jù)粘貼到篩選后的簡歷表格
篩選過的簡歷表格，想要粘貼數(shù)據(jù)就不是那么容易了，你試過用代碼來粘貼嗎？下面由學習啦小編教大家把數(shù)據(jù)粘貼到篩選后簡歷表格的方法，希望大家有所收獲!
把數(shù)據(jù)粘貼到篩選后簡歷表格的方法
1首先，點擊excel程序左下角的【錄制宏】按鈕錄制宏。選擇錄制到【個人宏工作簿】后點擊【確定】按鈕。
2開始錄制宏后什么都不操作，馬上點擊【停止錄制宏】按鈕。
3按Alt+F11進入VBE界面，打開“個人宏工作簿”，可以看到增加了一個模塊。
4將模塊代碼更新成下述代碼后點擊【保存】按鈕。
Sub 多區(qū)域復(fù)制粘貼()
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:="選擇粘貼區(qū)域的最左上角單元格", Title:="多區(qū)域復(fù)制粘貼", 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界面，右鍵單擊快速訪問工具欄，選擇【自定義快速訪問工具欄】。
如下圖設(shè)置和選擇，并點擊【添加】按鈕。
這樣，在工具欄就出現(xiàn)了一個新的按鈕，指定到了剛才加入的代碼。
下面來測試一下。
原始數(shù)據(jù)A列姓名包含重復(fù)的“張三”。
我們篩選“張三”，用鼠標選中所有數(shù)據(jù)。然后按Ctrl+G調(diào)出【定位】對話框，選擇【定位條件】。
選擇【可見單元格】，然后點擊【確定】按鈕。
點擊剛才插入的按鈕。
下面會彈出來如下的對話框。
注意：只需要用鼠標選擇要粘貼區(qū)域的最左上角單元格即可。
選中想要粘貼的單元格，然后點擊【確定】按鈕，數(shù)據(jù)就粘貼出來了。
我們?nèi)∠鸄列的篩選，可以看到復(fù)制的數(shù)據(jù)也粘貼到了篩選出來的行中。
15注意：
設(shè)置代碼在個人宏工作簿中就可以使代碼功能在這臺電腦上對所有工作簿都可用。
看過“把數(shù)據(jù)粘貼到篩選后簡歷表格的方法”的人還看了：