批量重命名照片

乐乐2006201505

看到有人翻出来了以前的一个批量重命名图片的帖子，想起来以前我下载过的一个更好（可以实现随意重命名）的帖子内容，忘帖子地址了，所以重新发帖，借花献佛，希望能帮到大家。

下面代码需改进，暂时放本帖中。
Sub 补数据()
    For m = 4 To 5
    Set Rng = Range("d" & m)
        If InStr(1, Rng, "-") Then
        i = Left(Rng, InStr(1, Rng, "-") - 1)
        j = Right(Rng, Len(Rng) - InStr(1, Rng, "-"))
        Rng = ""
            For k = i To j
                Rng = Rng & "、" & k
            Next
        End If
        Range("d" & m) = Mid(Rng, 2, InStr(1, Rng, j) - InStr(1, Rng, i) + 1)
    Next
    Set Rng = Nothing
End Sub

02761752696

谢谢     分享