if Sheets(1).Cells(1, 1).value<10 then
Sheets(i + 1).Name="M-00" & Sheets(1).Cells(1, 1).value
ELSE IF
Sheets(1).Cells(1, 1).value<100
then Sheets(i + 1).Name="M-0" & Sheets(1).Cells(1, 1).value
END IF
以上只是大致思路,语句不一定正确,因为我没有在VBA里去试.
你在第一个A1填入M-00就解决了
挺复杂