如何把資料貼上到篩選後的簡歷表格

　　篩選過的簡歷表格，想要貼上資料就不是那麼容易了，你試過用程式碼來貼上嗎？下面由小編教大家把資料貼上到篩選後簡歷表格的方法，希望大家有所收穫!

　　把資料貼上到篩選後簡歷表格的方法

　　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 SRange1 To AreaNum

　　MinR = ActiveSheet.Rows.Count

　　MinC = ActiveSheet.Columns.Count

　　For i = 1 To AreaNum

　　Set SRangei = Selection.Areasi

　　If SRangei.Row < MinR Then MinR = SRangei.Row

　　If SRangei.Column < MinC Then MinC = SRangei.Column

　　Next i

　　Set UPRange = CellsSRange1.Row, SRange1.Column

　　Set TRange = Application.InputBoxprompt:="選擇貼上區域的最左上角單元格", Title:="多區域複製貼上", Type:=8

　　Application.ScreenUpdating = False

　　For i = 1 To AreaNum

　　SRangei.Copy

　　TRange.OffsetSRangei.Row - MinR, SRangei.Column - MinC.PasteSpecial paste:=xlPasteValues

　　Next i

　　Application.ScreenUpdating = True

　　End Sub

　　回到Excel介面，右鍵單擊快速訪問工具欄，選擇【自定義快速訪問工具欄】。

　　如下圖設定和選擇，並點選【新增】按鈕。

　　這樣，在工具欄就出現了一個新的按鈕，指定到了剛才加入的程式碼。

　　下面來測試一下。

　　原始資料A列姓名包含重複的“張三”。

　　我們篩選“張三”，用滑鼠選中所有資料。然後按Ctrl+G調出【定位】對話方塊，選擇【定位條件】。

　　選擇【可見單元格】，然後點選【確定】按鈕。

　　點選剛才插入的按鈕。

　　下面會彈出來如下的對話方塊。

　　注意：只需要用滑鼠選擇要貼上區域的最左上角單元格即可。

　　選中想要貼上的單元格，然後點選【確定】按鈕，資料就粘貼出來了。

 

　　我們取消A列的篩選，可以看到複製的資料也貼上到了篩選出來的行中。

　　15注意：

　　設定程式碼在個人巨集工作簿中就可以使程式碼功能在這臺電腦上對所有工作簿都可用。

把資料貼上到篩選後簡歷表格的方法