!!

嘿嘿,

今天給大家更新一章網上算是比較熱的一個EXCEL技巧,

當然這個是用VBA才能做到的,那就是名稱的批量修改.

打個比方吧.

如果今天你要整理一下,你過往的一些照片,或者文件,這些文件或者照片要按照編輯時間和事件名稱來進行編輯,那么你會怎么辦?

或者說,今天我到西湖去玩了一趟,名稱都是亂七八糟的,那么我要把這些名稱進行批量的修改成"2019.3.19日西湖游玩",

然后過了一天,2019年3.20號我去上海玩了一天,想要修改成"2019.3.20上海游玩."

可能你會有200到500張照片,怎么來進行批量修改?

一個一個的打開來看,然后修改?

這樣有點麻煩,當然我的這個視頻黨總也沒做得特別完美,大家可以根據自己的需求進行修改和優化.

還有一個問題,就是我要指定一個統一的模板發給員工進行統計,我負責匯總,那么你編輯好這個文件之后,怎么把這些文件名稱修改成你擬定好的文件名,或許你有100個文件需要批量修改,

如果你學會這個方法,其實只需要,復制你的文件名然后批量修改.

都是之前錄的視頻,可能在拼接的時候,有點問題.

視頻觀看:

中間牽涉一些代碼,按照視頻的邏輯,然后模擬一下吧.

---

Sub ????????()
Dim X, Y As Integer
Dim Z As String
X = ??????.Range("B" & Rows.Count).End(xlUp).Row
Z = InputBox("???????", "Input Data")
For Y = 4 To X

?Range("B" & Y).Value = Format(Left(Range("C" & Y).Value, Len(Range("C" & Y)) - 8), "YYYY-MM-DD") & Z & "(" & Y - 3 & ")" & Right(Range("B" & Y).Value, Len(Range("D2")))
?Next Y
End Sub

---

Sub ??????????????()
Dim X, Y As Integer
Dim Z As String
X = ??????.Range("B" & Rows.Count).End(xlUp).Row

For Y = 4 To X

?Range("B" & Y).Value = Format(Left(Range("C" & Y).Value, Len(Range("C" & Y)) - 8), "YYYY-MM-DD") & "(" & Y - 3 & ")" & Right(Range("B" & Y).Value, Len(Range("D2")))
?Next Y
End Sub

---

Sub ????????()
? Dim i As Integer
??? i = 3
??? Set ????? = CreateObject("Scripting.FileSystemObject")
??? Set ????? = ?????.GetFolder(??????.Cells(2, 1)).Files

???????
??????? For Each ??? In ?????
?????????? ??? = Right(???, Len(Range("D2")))
?????????? If ??? = Range("D2").Value Then
??????????????? i = i + 1
??????????????? ??????.Cells(i, 1) = ???.Name:
??????????????? ??????.Cells(i, 3) = ???.datecreated:
??????????????? End If
??????? Next
? Range("B4:B2000") = Range("A4:A2000").Value
End Sub

---

Sub ???????()
Dim X, Y As Integer
X = 3
Do While Range("A" & X + 1) <> ""
X = X + 1
Name ??????.Cells(2, 1) & "\" & ??????.Cells(X, 1) As ??????.Cells(2, 1) & "\" & ??????.Cells(X, 2)
Loop
MsgBox "???", vbOKOnly

End Sub

---

Sub ??????????()
Dim X, Y As Integer
X = 3
Do While Range("A" & X + 1) <> ""
X = X + 1
Name ??????.Cells(2, 1) & "\" & ??????.Cells(X, 1) As ??????.Cells(2, 1) & "\" & ??????.Cells(X, 2) & Range("D2").Value
Loop
MsgBox "???", vbOKOnly

End Sub

---

總結

以上是生活随笔為你收集整理的修改value_EXCEL批量名称修改的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。