導(dǎo)讀方法一：操作過程：，今天小編就來聊一聊關(guān)于復(fù)制1000個新的文件夾?接下來我們就一起去研究一下吧!復(fù)制1000個新的文件夾方法一：操作過程：1.在同事人名前....

方法一：操作過程：，今天小編就來聊一聊關(guān)于復(fù)制1000個新的文件夾?接下來我們就一起去研究一下吧!

復(fù)制1000個新的文件夾

方法一：

操作過程：

1.在同事人名前插入一列，選擇人名前的單元格區(qū)域輸入字母“MD”。

2.新建一個文本文檔，將工作中的兩列數(shù)據(jù)粘貼到文本文檔中。

3.將文本文檔的后綴改為“BAT”格式，雙擊此文件就可以快速搞定。

說明：

1.快速選擇區(qū)域用到的快捷鍵有CTRL 方向鍵、CTRL SHIFT 方向鍵、CTRL ENTER,它們的功能如下：

（1）CTRL 方向鍵：快速從當(dāng)前單元格跳轉(zhuǎn)到方向鍵方向的最后一個非空單元格。

（2）CTRL SHIFT 方向鍵：快速選擇從當(dāng)前選擇的單元格到方向鍵方向的最后一個非空單元格的單元格區(qū)域。

（3）CTRL ENTER：批量為所選單元格區(qū)域填充內(nèi)容或公式。

2.如果新建的文本文檔不顯示文件后綴名稱，可按如下方法調(diào)出：

打開任意一個文件→點擊左上角的“組織”→切換到“查看”選項下→取消“隱藏已知文件類型的擴(kuò)展名”前的對號→點擊“應(yīng)用到文件夾”并確認(rèn)。

---

方法二：

操作：

鼠標(biāo)右鍵工作表標(biāo)簽選擇查看代碼在窗口中復(fù)制下方的代碼，點擊運行或者按F5鍵運行就可以快速搞定。

Sub 批量新建文件夾()Application.DisplayAlerts = FalseFor i = 1 To ThisWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).RowVBA.MkDir ThisWorkbook.Path & "" & Cells(i, 1)NextEnd Sub

說明：

使用VBA操作時注意必須把要新建文件夾的名稱復(fù)制到工作表的A列，因為這與上述代碼中的Cells(i, 1)相互對應(yīng)。如果名稱在工作表的B列，則需要把Cells(i, 1)修改為Cells(i, 2)，以此類推。