Sub 照片分班() Dim Row As Long With ActiveWorkbook.ActiveSheet For Row = 2 To .UsedRange.Rows.Count Name "大文件夹路径\" & .Range("A" & Row).Value & ".照片扩展名" As "班级文件夹所在的父文件夹路径\" & .Range("B" & Row).Value & "\" & .Range("A" & Row).Value & ".照片扩展名" Next Row End With MsgBox "照片移动完毕" End Sub