篩選過(guò)的簡(jiǎn)歷表格，想要粘貼數(shù)據(jù)就不是那么容易了，你試過(guò)用代碼來(lái)粘貼嗎？下面由學(xué)習(xí)啦小編教大家把數(shù)據(jù)粘貼到篩選后簡(jiǎn)歷表格的方法，希望大家有所收獲!

　　把數(shù)據(jù)粘貼到篩選后簡(jiǎn)歷表格的方法

　　1首先，點(diǎn)擊excel程序左下角的【錄制宏】按鈕錄制宏。選擇錄制到【個(gè)人宏工作簿】后點(diǎn)擊【確定】按鈕。

　　2開(kāi)始錄制宏后什么都不操作，馬上點(diǎn)擊【停止錄制宏】按鈕。

　　3按Alt+F11進(jìn)入VBE界面，打開(kāi)“個(gè)人宏工作簿”，可以看到增加了一個(gè)模塊。

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

　　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界面，右鍵單擊快速訪問(wèn)工具欄，選擇【自定義快速訪問(wèn)工具欄】。

　　如下圖設(shè)置和選擇，并點(diǎn)擊【添加】按鈕。

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

　　下面來(lái)測(cè)試一下。

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

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

　　選擇【可見(jiàn)單元格】，然后點(diǎn)擊【確定】按鈕。

　　點(diǎn)擊剛才插入的按鈕。

　　下面會(huì)彈出來(lái)如下的對(duì)話框。

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

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

　　我們?nèi)∠鸄列的篩選，可以看到復(fù)制的數(shù)據(jù)也粘貼到了篩選出來(lái)的行中。

　　15注意：

　　設(shè)置代碼在個(gè)人宏工作簿中就可以使代碼功能在這臺(tái)電腦上對(duì)所有工作簿都可用。

看過(guò)“把數(shù)據(jù)粘貼到篩選后簡(jiǎn)歷表格的方法”的人還看了：

1.如何將數(shù)據(jù)復(fù)制粘貼到篩選后簡(jiǎn)歷表單元格

2.excel2010粘貼到篩選后簡(jiǎn)歷表格的方法

3.如何粘貼篩選后的簡(jiǎn)歷表格

4.怎么粘貼篩選后的簡(jiǎn)歷表格中

5.怎么粘貼篩選后的簡(jiǎn)歷表格