Note: The other languages of the website are Google-translated. Back to English
English English

วิธีสร้างโฟลเดอร์อย่างรวดเร็วตามค่าเซลล์ใน Excel

สมมติว่าคุณมีรายชื่อเจ้าหน้าที่อยู่ในช่วงของแผ่นงานและตอนนี้คุณต้องการสร้างโฟลเดอร์สำหรับแต่ละคนในเซลล์เพื่อบันทึกข้อมูลของพวกเขา หากคุณสร้างโฟลเดอร์ทีละโฟลเดอร์จะเสียเวลามาก แต่คุณจะสร้างโฟลเดอร์เหล่านี้อย่างรวดเร็วได้อย่างไร? วันนี้จะมาแนะนำเคล็ดลับง่ายๆ:

สร้างโฟลเดอร์ตามค่าของเซลล์ด้วยรหัส VBA

สร้างโฟลเดอร์ตามค่าของเซลล์อย่างรวดเร็วด้วย Kutools for Excelความคิดที่ดี 3


สร้างโฟลเดอร์ตามค่าของเซลล์ด้วยรหัส VBA

ตัวอย่างเช่นฉันมีช่วงของชื่อในแผ่นงานฉันต้องการสร้างโฟลเดอร์สำหรับแต่ละชื่อและบันทึกลงในเส้นทางที่ระบุด้วยรหัส VBA ฉันสามารถทำงานนี้ให้เสร็จได้

1. ใส่สมุดงานที่ใช้งานลงในไดเร็กทอรีเฉพาะซึ่งคุณจะวางโฟลเดอร์ที่สร้างไว้ เปิดเวิร์กบุ๊กและเลือกช่วงของเซลล์ที่คุณต้องการใช้

เอกสารสร้างโฟลเดอร์ 1

2. คลิก ผู้พัฒนา > ของ Visual Basicใหม่ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูลและใส่รหัสต่อไปนี้ลงในโมดูล:

รหัส VBA: สร้างโฟลเดอร์ตามค่าของเซลล์

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

3. คลิก doc- คูณ - คำนวณ -3 ปุ่มเพื่อรันโค้ด เซลล์ที่เลือกทั้งหมดถูกสร้างไปยังโฟลเดอร์ที่มีค่า และโฟลเดอร์จะถูกวางลงในเส้นทางเช่นเดียวกับสมุดงานที่ใช้งานอยู่ ดูภาพหน้าจอ:

เอกสารสร้างโฟลเดอร์ 2


สร้างโฟลเดอร์ตามค่าของเซลล์อย่างรวดเร็วด้วย Kutools for Excel

เป็นเรื่องง่ายและสะดวกสำหรับคุณในการสร้างโฟลเดอร์ตามเซลล์ vales หากคุณใช้เครื่องมือ - Kutools for Excel

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:(ดาวน์โหลด Kutools for Excel ฟรีทันที!)

1. เลือกช่วงที่คุณต้องการสร้างโฟลเดอร์

2. คลิก Kutools พลัส > นำเข้าส่งออก > สร้างโฟลเดอร์จากสารบัญเซลล์…, ดูภาพหน้าจอ:

doc สร้างโฟลเดอร์ 1

3. ใน สร้างโฟลเดอร์จากสารบัญเซลล์ คลิกตกลง เอกสารสร้างโฟลเดอร์ 3เพื่อระบุเส้นทางที่คุณต้องการบันทึกโฟลเดอร์ เห็นภาพหน้าจอ:

doc สร้างโฟลเดอร์ 2

4. คลิก OK. และกล่องพร้อมต์จะเตือนคุณว่ามีการสร้างโฟลเดอร์จำนวนเท่าใด ดูภาพหน้าจอ:

doc สร้างโฟลเดอร์ 3

5. คลิก OK. และค่าทั้งหมดในช่วงที่เลือกได้ถูกสร้างโฟลเดอร์ในโฟลเดอร์ที่ระบุ
doc สร้างโฟลเดอร์ 4


แสดงรายชื่อไฟล์ทั้งหมดจากโฟลเดอร์ลงในแผ่นงาน

เพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับฟังก์ชันนี้

นี่คือยูทิลิตี้ใน Kutools for Excel - รายการชื่อไฟล์ สามารถแสดงรายชื่อไฟล์ทั้งหมดของโฟลเดอร์ในแผ่นงานได้หากคุณสนใจโปรดอ่านต่อไป

หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:(ดาวน์โหลด Kutools for Excel ฟรีทันที!)

1 คลิก Kutools พลัส > นำเข้า / ส่งออก > รายการชื่อไฟล์.
doc สร้างโฟลเดอร์ 5

2 ใน รายการชื่อไฟล์ ไดอะล็อกเลือกโฟลเดอร์ที่คุณต้องการแสดงรายการไฟล์จากนั้นตรวจสอบ ไฟล์ทั้งหมด or ระบุ ตัวเลือกตามที่คุณต้องการ ไฟล์ประเภท section
img src = "https: // cdn.extendoffice.com / images / story / doc-excel / create-folder / doc-create-folder-6.png "alt =" doc create folder 6 "/>

3 คลิก Okแผ่นงานใหม่จะถูกสร้างขึ้นพร้อมชื่อไฟล์ทั้งหมดและข้อมูลที่เกี่ยวข้อง
doc สร้างโฟลเดอร์ 7


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (61)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อะไรคือข้อบกพร่องในการปฏิบัติตามคำสั่ง VBA? ทำในขณะที่r
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับการตอบกลับของคุณ โค้ด VBA มีคำถามเล็กน้อยเมื่อฉันแก้ไข ดังนั้นฉันได้แก้ไขแล้ว และใช้งานได้สำเร็จ โปรดลองใช้ ขอให้โชคดี!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
SkyYang, [quote] ขอบคุณสำหรับการตอบกลับของคุณ รหัส VBA มีคำถามเล็กน้อยเมื่อฉันแก้ไข ดังนั้นฉันได้แก้ไขที่นี่ และใช้งานได้สำเร็จ โปรดลองใช้ ขอให้โชคดี!โดย skyyang[/quote] คุณยอดเยี่ยมมาก !! ฉันสามารถทำงานได้อย่างมีประสิทธิผลมากขึ้นเนื่องจากโปรแกรม (รหัส VBA ในนักพัฒนา)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใครเคยเขียนตัวอย่างแรก - คุณเจ๋ง!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ได้โปรด ฉันต้องการมาโครเดียวกันนั้น แต่แทนที่จะบันทึกเป็นโฟลเดอร์ ฉันต้องการมันเพื่อบันทึกแผ่นจดบันทึกที่มีเฉพาะชื่อเซลล์ในช่วงคอลัมน์ ขอขอบคุณที่ให้การสนับสนุน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดี... :) ขอบคุณ.. มันทำให้ฉันทำงานง่าย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสิ่งนี้ช่วยฉันประหยัดเวลาได้มาก แต่จะสร้างโฟลเดอร์ย่อยได้อย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก!!! นี่เป็นวิธีแก้ปัญหาที่ยอดเยี่ยมและมีประสิทธิภาพที่สุดและง่ายที่สุดที่ฉันเคยพบบนอินเทอร์เน็ตสำหรับสิ่งนี้! :ฮ่าๆ:
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
:-) ขอบคุณที่ให้ข้อมูลนี้.... ประหยัดเวลาได้มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีการทำเช่นนี้ใน LibreOffice หรือ OpenOffice โปรดตอบกลับ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ช่วยเหลือ !!! ฉันมีโฟลเดอร์ที่จะสร้างมากกว่า 7500 โฟลเดอร์ แต่โปรแกรมมีข้อผิดพลาดในการรวบรวมโดยเน้นที่ [b]Sub MakeFolders ()[b] ราวกับว่าเป็นชื่อที่ไม่ถูกต้องหรืออะไรทำนองนั้น! ฉันกำลังใช้งาน Excel 2010
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหาเดียวกัน แต่เมื่อฉันดูชื่อโฟลเดอร์ใกล้ ๆ มี / และเมื่อฉันลบมันออก รหัสก็ใช้งานได้อย่างมีเสน่ห์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณคือผู้ช่วยชีวิต!!!!! [b]ขอบคุณ![b] หมายเหตุ: อย่าเว้นวรรคระหว่าง MakeFolder และ ()
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สมุดงานที่ใช้งานอยู่มีปัญหากับเส้นทางด้วยเหตุผลบางประการ ช่วยด้วย :cry:
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหาที่คล้ายกัน ในตอนท้ายฉันพบว่าโปรแกรมไม่ทำงานหากชื่อไฟล์มีเครื่องหมายทับ / หรือ \ ฉันแทนที่ / ด้วย _ มันใช้งานได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสิ่งนี้ - ประหยัดเวลาได้ดีเยี่ยม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำงานเหมือนมีเสน่ห์ แต่มีวิธีสร้างโฟลเดอร์ย่อยหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ลองใช้บน Mac แล้วฉันได้รับ "ข้อผิดพลาดรันไทม์ '68': อุปกรณ์ไม่พร้อมใช้งาน" และการกดดีบักชี้ให้เห็นบรรทัดของรหัสต่อไปนี้ว่าเป็นผู้ร้าย: ถ้า Len(Dir(ActiveWorkbook.Path & "\" & Rng( r, c), vbDirectory)) = 0 จากนั้น MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) โปรดช่วยด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันก็อยากทราบเรื่องนี้เช่นกัน ฉันต้องสร้างโฟลเดอร์ย่อยด้วยชื่อที่กำหนดแล้ว ตัวอย่าง: Excelnamedfolder\P\E ฉันต้องการสองโฟลเดอร์ภายในโฟลเดอร์ P ชื่อ E และ K
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับโพสต์ที่เป็นประโยชน์นี้ช่วยประหยัดเวลาของฉัน ฉันรักพวกเนิร์ด :) เราจะทำอย่างไรถ้าไม่มีพวกเขา อย่างจริงจัง!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังพยายามเพิ่มหลายคอลัมน์เข้าด้วยกันเมื่อสร้างโฟลเดอร์ ข้อเสนอแนะใด ๆ เกี่ยวกับวิธีการทำเช่นนี้? เช่น ABC 1 A1 A2 A3 2 B1 B2 B3 3 C1 C2 C3 End product เมื่อสร้างโฟลเดอร์ควรเป็น: โฟลเดอร์ 1 (A1 + A2 + A3) โฟลเดอร์ 2 (B1 + B2 + B3) ฯลฯ ... ฉันพบหลายสูตรใน การสร้างโฟลเดอร์จากเซลล์เดียว แต่ไม่มีสำหรับหลาย ๆ อัน ฉันได้ลองแก้ไขบางสิ่งด้วย แต่ไม่ประสบความสำเร็จ ความคิดใด? ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณยอดเยี่ยมมาก มันได้ผล ขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
งานดี.....ดีเยี่ยม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับแท็บ KUTOOLS & Enterprise ......เครื่องมือประหยัดเวลา..
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณเพิ่งช่วยฉันประหยัดเวลาได้มาก เพื่อน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากเพื่อน,, มันใช้งานได้...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไชโย! ฟังก์ชั่นเยี่ยม!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสิ่งนี้. ทำงานได้ดี
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ