[已解决]大家回贴时都有01 02 这种序号是什么软件出来的啊

tzjx200521

• Sub test()
•     Dim arr, str_Path$, k%, i%, str_Name$
•     arr = Sheet2.Range("a1").CurrentRegion
•     str_Path = ThisWorkbook.Path & "\"
•     Application.ScreenUpdating = False
•     For k = 2 To UBound(arr)
•         For i = 1 To arr(k, 2)
•             Sheet1.Copy
•             str_Name = str_Path & arr(k, 1) & "\" & arr(k, 1) & "_" & i & ".xlsx"
•             ActiveWorkbook.SaveAs str_Name
•             ActiveWorkbook.Close False
•         Next i
•     Next k
•     Application.ScreenUpdating = True
• End Sub
• 
  

复制代码
这前面的序号和复制代码是怎么发出来的？？？？？

最佳答案

月排行榜 / 总排行榜

风林火山

2014-1-24 22:42

如图

跳转到最佳答案楼层

风林火山

如图

tzjx200521

懂了  谢谢了

tgydslr

贴上公式或代码有回车符号的就看到了