不卡AV在线|网页在线观看无码高清|亚洲国产亚洲国产|国产伦精品一区二区三区免费视频

學習啦 > 創(chuàng)業(yè)指南 > 職場 > 個人簡歷下載 > 個人簡歷表格 > 怎么往篩選后的簡歷表格粘貼

怎么往篩選后的簡歷表格粘貼

時間: 如英753 分享

怎么往篩選后的簡歷表格粘貼

  我們在制作簡歷的時候,會遇到篩選出某些數(shù)據(jù),復制后需要粘貼到篩選狀態(tài)下的單元格的情況,今天學習啦小編要教大家怎么往篩選后的簡歷表格粘貼,一起來學習下吧!

  往篩選后的簡歷表格粘貼的方法

  1首先,點擊excel程序左下角的【錄制宏】按鈕錄制宏。選擇錄制到【個人宏工作簿】后點擊【確定】按鈕。

  2開始錄制宏后什么都不操作,馬上點擊【停止錄制宏】按鈕。

  3按Alt+F11進入VBE界面,打開“個人宏工作簿”,可以看到增加了一個模塊。

  4將模塊代碼更新成下述代碼后點擊【保存】按鈕。

  Sub 多區(qū)域復制粘貼()

  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ū)域復制粘貼", 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界面,右鍵單擊快速訪問工具欄,選擇【自定義快速訪問工具欄】。

  如下圖設置和選擇,并點擊【添加】按鈕。

  這樣,在工具欄就出現(xiàn)了一個新的按鈕,指定到了剛才加入的代碼。

  下面來測試一下。

  原始數(shù)據(jù)A列姓名包含重復的“張三”。

  我們篩選“張三”,用鼠標選中所有數(shù)據(jù)。然后按Ctrl+G調出【定位】對話框,選擇【定位條件】。

  選擇【可見單元格】,然后點擊【確定】按鈕。

  點擊剛才插入的按鈕。

  下面會彈出來如下的對話框。

  注意:只需要用鼠標選擇要粘貼區(qū)域的最左上角單元格即可。

  選中想要粘貼的單元格,然后點擊【確定】按鈕,數(shù)據(jù)就粘貼出來了。

  我們取消A列的篩選,可以看到復制的數(shù)據(jù)也粘貼到了篩選出來的行中。

  15注意:

  設置代碼在個人宏工作簿中就可以使代碼功能在這臺電腦上對所有工作簿都可用。

看過“怎么往篩選后的簡歷表格粘貼”的人還看了:

1.如何把數(shù)據(jù)粘貼到篩選后的簡歷表格

2.如何粘貼篩選后的簡歷表格

3.怎么粘貼篩選后的簡歷表格

4.篩選后的簡歷表格怎么復制粘貼數(shù)據(jù)庫

1668209