Conas sonraí a chóipeáil chuig bileog oibre eile le Advanced Filter in Excel?
De ghnáth, is féidir linn an Scagaire Casta gné chun sonraí a bhaint as na sonraí amha sa bhileog oibre chéanna. Ach, uaireanta, nuair a dhéanann tú iarracht an toradh scagtha a chóipeáil chuig bileog oibre eile, gheobhaidh tú an teachtaireacht rabhaidh seo a leanas. Sa chás seo, conas a d’fhéadfá déileáil leis an tasc seo in Excel?
Cóipeáil sonraí chuig bileog oibre eile le Advanced Filter trí ghné Advanced Filter a úsáid
Cóipeáil sonraí chuig bileog oibre eile le Advanced Filter trí chód VBA a úsáid
Cóipeáil sonraí chuig bileog oibre eile le Advanced Filter trí ghné Advanced Filter a úsáid
Seo bealach oibre simplí duit chun an post seo a réiteach, déan mar seo le do thoil:
1. Gníomhachtaigh an bhileog oibre inar mian leat an toradh scagtha a chóipeáil tríd an bhfeidhm Advanced Scagaire a úsáid.
2. Ansin cliceáil Dáta > Advanced, féach ar an scáileán:
3. Sa an Scagaire Casta dialóg, roghnaigh Cóipeáil go suíomh eile ó na gníomh alt, agus ansin cliceáil cnaipe chun an raon sonraí a theastaíonn uait a scagadh i mbileog eile in aice leis an Raon liosta, téigh ar cliceáil cnaipe in aice leis an Raon critéar chun na critéir a roghnú ó bhileog eile, féach an scáileán:
4. Ansin cliceáil cnaipe in aice leis an Cóip le bosca chun cill a roghnú inar mian leat an toradh scagtha a aschur ón mbileog ghníomhach, agus ansin cliceáil OK cnaipe, baineadh an toradh scagtha isteach i mbileog eile bunaithe ar do bhileog sonraí bunaidh.
Cóipeáil sonraí chuig bileog oibre eile le Advanced Filter trí chód VBA a úsáid
Má tá tú oilte le cód VBA, is féidir leat an post seo a chríochnú leis an gcód VBA a leanúint.
1. Gníomhachtaigh an bhileog oibre a theastaíonn uait an toradh a scagadh agus a chóipeáil go bileog eile.
2. Coinnigh síos an ALT + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Cóipeáil sonraí chuig bileog oibre eile le Advanced Filter:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
4. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun ligean duit an raon sonraí a theastaíonn uait a scagadh a roghnú, féach an scáileán:
5. Ansin cliceáil OK, agus tá bosca dialóige eile popped amach le cur i gcuimhne duit an raon critéar a theastaíonn uait a scagadh a roghnú, féach ar an scáileán:
6. Téigh ar cliceáil OK, sa bhosca dialóige popped out, roghnaigh cill ó bhileog oibre nua eile inar mian leat toradh an scagaire a aschur, féach an scáileán:
7. Faoi dheireadh, cliceáil OK cnaipe, rinneadh na sonraí scagtha a aschur i mbileog shonraithe eile de réir mar is gá duit.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!