Sut i gopïo data i daflen waith arall gyda Advanced Filter yn Excel?
Fel rheol, gallwn gymhwyso'r Hidlo Uwch nodwedd i dynnu data o'r data crai yn yr un daflen waith. Ond, weithiau, pan geisiwch gopïo'r canlyniad wedi'i hidlo i daflen waith arall, fe gewch y neges rybuddio ganlynol. Yn yr achos hwn, sut allech chi ddelio â'r dasg hon yn Excel?
Copïwch ddata i daflen waith arall gyda Advanced Filter trwy ddefnyddio nodwedd Hidlo Uwch
Copïwch ddata i daflen waith arall gyda Advanced Filter trwy ddefnyddio cod VBA
Copïwch ddata i daflen waith arall gyda Advanced Filter trwy ddefnyddio nodwedd Hidlo Uwch
Dyma gylch gwaith syml i chi ddatrys y swydd hon, gwnewch fel hyn:
1. Gweithredwch y daflen waith lle rydych chi am gopïo'r canlyniad wedi'i hidlo trwy ddefnyddio'r swyddogaeth Hidlo Uwch.
2. Yna cliciwch Dyddiad > Uwch, gweler y screenshot:
3. Yn y Hidlo Uwch blwch deialog, dewiswch Copïwch i leoliad arall oddi wrth y Gweithred adran, ac yna cliciwch botwm i ddewis yr ystod ddata rydych chi am ei hidlo mewn dalen arall wrth ymyl y Ystod rhestr, ewch ymlaen i glicio botwm wrth ochr y Amrediad meini prawf i ddewis y meini prawf o ddalen arall, gweler y screenshot:
4. Yna cliciwch botwm wrth ochr y Copi i blwch i ddewis cell lle rydych chi am allbynnu'r canlyniad wedi'i hidlo o'r ddalen weithredol, ac yna cliciwch OK botwm, mae'r canlyniad wedi'i hidlo wedi'i dynnu i mewn i ddalen arall yn seiliedig ar eich taflen ddata wreiddiol.
Copïwch ddata i daflen waith arall gyda Advanced Filter trwy ddefnyddio cod VBA
Os ydych chi'n fedrus gyda chod VBA, gallwch chi orffen y swydd hon trwy ddilyn cod VBA.
1. Gweithredwch y daflen waith rydych chi am ei hidlo a chopïo'r canlyniad i ddalen arall.
2. Daliwch i lawr y ALT + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Copïwch ddata i daflen waith arall gyda 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. Ac yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i adael i chi ddewis yr ystod ddata rydych chi am ei hidlo, gweler y screenshot:
5. Yna cliciwch OK, ac mae blwch deialog arall wedi'i popio allan i'ch atgoffa i ddewis yr ystod meini prawf rydych chi am ei hidlo yn seiliedig, gweler y screenshot:
6. Ewch ymlaen i glicio OK, yn y blwch deialog popped out, dewiswch gell o daflen waith newydd arall lle rydych chi am allbwn canlyniad yr hidlydd, gweler y screenshot:
7. O'r diwedd, cliciwch OK botwm, mae'r data wedi'i hidlo wedi'i allbynnu i ddalen benodol arall yn ôl yr angen.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!