XDictionary.Item(xVal) = xDictionary.Item(xVal) + 1Ĭells(xRow, "B").Value = Mid(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp) Note: After pasting this code, you should reference the Microsoft Scripting Runtime option in the References-VBAProject dialog box as below screenshot shown. Windows mass rename folders date code#To rename the files based on duplicate new names with name-1,name-2, the following VBA code may help you, please try it. Easy deploying in your enterprise or organization.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |