tft每日頭條

 > 職場

 > 複制1000個新的文件夾

複制1000個新的文件夾

職場 更新时间:2024-07-29 19:21:48

複制1000個新的文件夾?方法一:操作過程:,今天小編就來聊一聊關于複制1000個新的文件夾?接下來我們就一起去研究一下吧!

複制1000個新的文件夾(給1000個同事每人新建一個文件夾)1

複制1000個新的文件夾

方法一:

操作過程:

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

2.新建一個文本文檔,将工作中的兩列數據粘貼到文本文檔中。

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

說明:

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

(1)CTRL 方向鍵:快速從當前單元格跳轉到方向鍵方向的最後一個非空單元格。

(2)CTRL SHIFT 方向鍵:快速選擇從當前選擇的單元格到方向鍵方向的最後一個非空單元格的單元格區域。

(3)CTRL ENTER:批量為所選單元格區域填充内容或公式。

2.如果新建的文本文檔不顯示文件後綴名稱,可按如下方法調出:

打開任意一個文件→點擊左上角的“組織”→切換到“查看”選項下→取消“隐藏已知文件類型的擴展名”前的對号→點擊“應用到文件夾”并确認。


方法二:

操作:

鼠标右鍵工作表标簽選擇查看代碼在窗口中複制下方的代碼,點擊運行或者按F5鍵運行就可以快速搞定。

Sub 批量新建文件夾() Application.DisplayAlerts = False For i = 1 To ThisWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row VBA.MkDir ThisWorkbook.Path & "\" & Cells(i, 1) Next End Sub

說明:

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

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关職場资讯推荐

热门職場资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved