如何將篩選後的簡歷表格貼上可見單元

  篩選後的簡歷表格是可以複製貼上到其他可見單元格的,今天小編就與大家分享將篩選後的簡歷表格貼上可見單元的方法,希望對大家的學習有幫助!

  將篩選後的簡歷表格貼上可見單元的方法1

  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注意:

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

將篩選後的簡歷表格貼上可見單元的方法