­ã´£³¡ªL

¥ý§âÀɮשñ¦b¦P¸ê®Æ§¨¤¤//¥h±¼¯S®í¤å¦r..§ó§ïÀɦW//
©Îª½±µ¥Î¥["¤é´Á" ¥h like, ²Å¦X¶}±Ò(¦Û¤v§ï¬Ý¬Ý)

Sub TTT()
Dim PH$, xObj, xFiles, F, FN$, Nm$
PH = ThisWorkbook.Path & "\"
Set xObj = CreateObject("Scripting.FileSystemObject")
Set xFiles = xObj.GetFolder(PH).Files
For Each F In xFiles
    FN$ = F.Name: Nm = ""
    If FN Like "*¨C¤é¼Ò¨ã²§°Ê*.xlsx" Then
       For j = 1 To Len(FN)
           T = Mid(FN, j, 1)
           If Asc(T) <> 63 Then Nm = Nm & T
       Next j
       If FN <> Nm And Dir(PH & Nm) = "" Then F.Name = Nm
    End If
Next
End Sub