Hvordan du raskt opprette mapper basert på celleverdier i Excel?

For eksempel, jeg har en rekke navn i et regneark, jeg ønsker å opprette mapper for hver av dem, og lagre dem til en bestemt bane, med VBA-kode, kan jeg føre denne oppgaven.
en. Sett den aktive arbeidsboken til en bestemt katalog der du vil plassere den opprettede mapper inn. Åpne arbeidsboken og velg celleområdet som du vil bruke.
To. Klikk Developer > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Modul, og skriv inn følgende kode i modulen:
VBA-kode: opprette mapper basert på celleverdier
Sub MakeFolders () Dim RNG Som RangeDim maxRows, maxCols, r, c Som IntegerSet RNG = SelectionmaxRows = Rng.Rows .CountmaxCols = Rng.Columns.CountFor c = 1 Til maxColsr = 1Do Mens r < = maxRowsIf Len (Dir (ActiveWorkbook.Path & "\\" & RNG (r, c), vbDirectory)) = 0 ThenMkDir (Active .Path & "\\" & RNG (r, c)) On Error Resume NextEnd IFR = r + 1LoopNext cend Sub3. Klikk knappen for å utføre koden. Alle de valgte cellene har blitt opprettet for å mapper med sine verdier. Og mappene er plassert i bane som samme som den aktive arbeidsboken. Se skjermbilde:

Raskt opprette mapper basert på celleverdier med Kutools for Excel
Det er enkelt og praktisk for deg å opprette mapper basert på celle Vales hvis du bruker de Verktøy- Kutools for Excel.
Kutools for Excel.
med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 30 dager får det nå
Hvis du har installert Kutools for Excel, kan du raskt løse dette problemet på følgende måte:
1. Velg området du ønsker å opprette mapper.
To. Klikk Enterprise > Import /Export > Lag mapper fra celleinnhold ..., se skjermbilde:
tre. I de opprette mapper fra Cell dialogboksen Innholds klikk knappen for å angi banen du vil lagre mapper. Sett skjermbilde:
4. Klikk på OK. Og en rask boks vil minne deg på hvor mange mapper er opprettet. Se skjermbilde:
5. Klikk på OK. Og alle verdiene i det valgte området har blitt opprettet mapper i den angitte mappen.
Klikk Lag mapper fra celleinnhold til å vite mer om denne funksjonen. Anmeldelser