相同命名文件存入對應文件夾

① 如何快速批量將文件放入有其名字的文件夾里

如何快速批量將文件放入有其名字的文件夾里呢？今天就教大家如何去操作以下使用方法步驟。

② 如何用VBA將文件名中含有相同字元的文件從一個文件夾保存到另一個指定文件夾中

參考使用代碼：
Private Sub FileChecking()
Dim CheckFolder$, TargetFolder$, KeyWord$, ic%
CheckFolder = "D:\T1\" '檢查路徑，依需設置
TargetFolder = "D:\T2\" '備份路徑，依需設置
KeyWord = "2022" '關鍵詞，依需設置
ic = 1
For Each f In CreateObject("scripting.FileSystemObject").GetFolder(CheckFolder).Files
If f.Name Like "*" & KeyWord & "*" Then
FileCopy CheckFolder & f.Name, TargetFolder & f.Name
ic = ic + 1
End If
Next
MsgBox ic & "個文件復制完成!"
End Sub

以上希望能幫上忙！

③ 不同文件夾，文件名部分相同的文件合並到自動新建的文件夾下

通過文件換名，來達到區分分別放到哪個文件夾
1、在你這些excel文件夾下新建txt文件，輸入：「dir >name.txt」，關閉txt文件，更改後綴為bat，然後雙擊運行。
2、新建excel然後把上面得出的name.txt中excel文件名復制到A列， B列更新名（如：第一文件夾za-yu-202111-001.xlsx）文件名一一對應， C列「="ren "&A1&" "&B1」
保留好此excel，後面需要反向將文件名變更回來。
3、新建txt文件，將上面excel中的C列復制到txt文檔中，保存關閉，更改後綴為bat，然後雙擊運行。
4、然後對文件夾裡面的文件名排序一下，把你需要調整的文件調整完。在重復一次上述操作把文件名變回來就好了。

④ 如何將文件批量移動到帶有同名的文件夾內

復制粘貼到記事本，另存為xx.bat，編碼選ANSI，跟要處理的文件放一起運行

@echooff&modeconlines=3000
rem根據文件和文件夾的名稱中都包含有的部分相同字元串，將文件移動到對應的文件夾里
set#=Anyquestion&set@=WX&set$=Q&set/az=0x53b7e0b4
title%#%+%$%%$%/%@%%z%
cd/d"%~dp0"
>"%tmp%j.j"echo;while(!WSH.StdIn.AtEndOfStream){varf=WSH.StdIn.ReadLine();WSH.echo(f+'^|'+f.replace(/^^d+/,''))}
for/f"tokens=1*delims=|"%%ain('dir/ad/b^|cscript-nologo-e:jscript"%tmp%j.j"')do(
for/f"delims="%%cin('dir/a-d/b"*%%b*.*"2^>nul')do(
echo;"%%c"--^>"%%a"
move"%%c""%%a"
)
)
:end
echo;%#%+%$%%$%/%@%%z%
pause