Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip išsaugoti / eksportuoti tik filtruotus duomenis iš "Excel" į CSV failą?

Kaip visi žinome, mums lengva išsaugoti darbalapį kaip CSV failą. Bet ar bandėte išsaugoti tik filtruotus duomenis kaip CSV failą? Paprastai Įrašyti kaip funkcija "Excel" išsaugos visą darbalapio duomenis kaip csv failą, šiuo atveju kaip galite išsaugoti ar eksportuoti tik filtruotus duomenis iš "Excel" į CSV failą?

Išsaugoti / eksportuoti tik filtruotus duomenis iš "Excel" į CSV failą tik naudojant "Copy Visible" langelius

Išsaugoti / eksportuoti tik filtruotus duomenis iš "Excel" į CSV failą su VBA kodu

Išsaugoti / eksportuoti tik filtruotus duomenis iš "Excel" į CSV failą Kutools Excel


Išsaugoti arba eksportuoti duomenis ar filtruoti duomenis tik iš "Excel" į failą csv / pdf / txt / html / xlsx:

Su Kutools for Excel's Eksportas į failą funkcija, galite greitai išsaugoti arba eksportuoti pasirinktas langelius į csv, txt, pdf, xlsx, html failus, kaip jums reikia.

doc išsaugoti filtruotus duomenis kaip csv 12

Kutools for Excel: su daugiau nei 200 patogiais "Excel" priedais, galite nemokamai bandyti be apribojimų per 60 dienas. Atsisiųskite ir nemokamai bandykite dabar!



"Excel" negalima tiesiogiai išsaugoti filtruotų duomenų į csv failą, bet galite jį užbaigti, atlikite tokius veiksmus:

1. Pasirinkite filtruotus duomenis, kuriuos norite išsaugoti.

2. Tada spustelėkite Namai > Rasti ir pasirinkti > Eiti į specialų, žr. ekrano kopiją:

doc išsaugoti filtruotus duomenis kaip csv 1

3. Be Eiti į specialų Dialogo lange pasirinkite Tik matomose kamerose parinktį, žr. ekrano kopiją:

doc išsaugoti filtruotus duomenis kaip csv 2

4. Tada spustelėkite OK mygtuką, tada nukopijuokite ir įklijuokite filtruotus duomenis į naują darbalapį, o tik filtruojami duomenys buvo įklijuoti į naują darbalapį.

5. Dabar galite išsaugoti šį naują darbalapį kaip CSV failą, spustelėkite filė > Įrašyti kaipBe Įrašyti kaip dialogo lange nurodykite šio failo pavadinimą ir vietą ir pasirinkite CVS (apribotas kableliu) nuo Išsaugoti kaip tipą išskleidžiamasis sąrašas, žr. ekrano kopiją:

doc išsaugoti filtruotus duomenis kaip csv 3

6. Tada spustelėkite Išsaugoti jei norite išsaugoti šiuos filtruotus duomenis ir pasirodys kai kurie įspėjamieji pranešimai, spustelėkite OK ir taip uždaryti pranešimus, o tada tik filtruojami duomenys bus išsaugoti jūsų pasirinktame kataloge kaip CSV failas.

doc išsaugoti filtruotus duomenis kaip csv 4

 1

doc išsaugoti filtruotus duomenis kaip csv 5


Tai gali būti neefektyvus būdas naudojant aukščiau aprašytą metodą, čia galiu sukurti VBA kodą, kuris padės greitai ir patogiai eksportuoti filtruotus duomenis į CSV failą.

1. Laikykite nuspaudę Alt + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

2, Spauskite įsiuvas > Moduliaiir įklijuokite toliau nurodytą makrokomandą Moduliai Langas.

VBA kodas: Išsaugoti / eksportuoti tik filtruotus duomenis iš "Excel" į CSV failą

Sub Macro1()
'updateby Extendoffice 20151109
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xFileName As String
    Dim xWb As Workbook
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the filtered range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRg = xRg.SpecialCells(xlCellTypeVisible)
    If xRg Is Nothing Then Exit Sub
    xFileName = Application.GetSaveAsFilename(, "CSV Files (*.csv), *.csv", , "please specify the file name")
    If xFileName = "" Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xRg.Copy
    Set xWb = Application.Workbooks.Add
    xWb.ActiveSheet.Paste
    xWb.SaveAs Filename:=xFileName, FileFormat:=xlCSV, CreateBackup:=False
    xWb.Close False
    Application.ScreenUpdating = xUpdate
End Sub

3. Tada paspauskite F5 mygtukas, norint paleisti šį kodą, ir pasirodys greitas langas, primenantis jums pasirinkti filtruotus duomenis, kuriuos norite išsaugoti tik kaip CSV failą, žr. ekrano kopiją:

doc išsaugoti filtruotus duomenis kaip csv 6

4. Tada spustelėkite OK mygtukas, o kitas langelis pasirodo, kad primintumėte, kad nurodote failo pavadinimą ir vietą savo CSV failui, žr. ekrano kopiją:

doc išsaugoti filtruotus duomenis kaip csv 7

5. Ir tada spustelėkite Išsaugoti mygtukas, tik filtruojami duomenys išsaugomi kaip CSV failas.


Kutools for Excel yra naudinga priemonė,Eksportas į failą, tai gali padėti eksportuoti arba išsaugoti pasirinktų langelių asortimentą į csv, pdf, teksto ir kitus formatavimo failus.

Kutools for Excel : su daugiau nei 300 patogiais "Excel" priedais, galite nemokamai išbandyti be apribojimų per 60 dienas.

po diegimas Kutools for Excel, atlikite taip:

1. Pasirinkite filtruotus duomenis, kuriuos norite eksportuoti.

2, Spauskite įmonė > Importas eksportas > Eksportas į failą, žr. ekrano kopiją:

doc išsaugoti filtruotus duomenis kaip csv 8

3. Be Eksportas į failą Dialogo lange pasirinkite formatą, kurį norite išsaugoti po failo formatas, tada spustelėkite doc išsaugoti filtruotus duomenis kaip csv 10 mygtuką norėdami pasirinkti aplanką, kuriame norite išsaugoti eksportuotą failą, žr. ekrano kopiją:

doc išsaugoti filtruotus duomenis kaip csv 9

4. Tada spustelėkite Ok mygtukas, o kitas greitai pasirodys langas, primenantis, kad įveskite eksportuojamo failo pavadinimą, žr. ekrano kopiją:

doc išsaugoti filtruotus duomenis kaip csv 11

5. Ir tada spustelėkite Ok, ir tik pasirinkti filtruojami duomenys buvo išsaugoti kaip reikalingas CSV failas.

Atsisiųskite ir nemokamą bandomąją "Kutools" programą "Excel Now"!


Kutools for Excel: su daugiau nei 200 patogiais "Excel" priedais, galite nemokamai bandyti be apribojimų per 60 dienas. Atsisiųskite ir nemokamai bandykite dabar!



Rekomenduojami įrankiai našumui

Office Tab

aukso žvaigždutė1 Pateikite patogius skirtukus "Excel" ir kitai "Office" programinei įrangai, kaip ir "Chrome", "Firefox" ir "Internet Explorer".

Kutools for Excel

aukso žvaigždutė1 Nuostabi! Padidinkite savo našumą per 5 min. Nereikia jokių specialių įgūdžių, išskyrus dvi valandas kiekvieną dieną!

aukso žvaigždutė1 "300" naujos funkcijos "Excel", "Excel" daug lengvumo ir galingumo:

  • Sujungti elementus / eilutes / stulpelius neprarandant duomenų.
  • Suderinkite ir susinenkite kelis lapus ir darbaknygius.
  • Palyginkite diapazonus, nukopijuokite keletą diapazonų, konvertuokite tekstą į datą, vienetą ir valiutos konvertavimą.
  • Skaičiuojamas pagal spalvas, tarpinių pranešimų vidurkis, išplėstinis rūšiavimas ir super filtras,
  • Daugiau Pasirinkite / Įterpti / Ištrinti / Tekstas / Formatas / Nuoroda / Komentaras / Darbaknygiai / Užduotys Įrankiai ...

Kutools ekrano kopija Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.