代碼文件如下(有可能瀏覽器會偷換特殊字符,所以壹定要結合上圖):
選項顯式
子宏1()
模糊排列,I,j,p,f
arr = ActiveSheet。使用範圍
對於i = 2到下界(arr)
文件重命名
p = " f:\ downloads \ 1 \ " & amp;arr(i,1)
f = Dir(p & amp;"*.jpg”)
j = 1
而f & lt& gt""
名稱p & ampf為p & amparr(i,2)和amparr(i,3)和amp強生公司。".jpg "
f =方向
j = j + 1
行
重命名文件夾
將p命名為p & amparr(i,2)
接下來我
末端接頭