温暖月饼

文章
8
资源
0
加入时间
2年10月24天

excel的多表合并

工作需要百度到的,很不错,进行记录。Sub main()For Each sh In SheetsIf sh.Name i = sh.Range("A65536").End(3).Rowk = Range("A65536").End(3).Rowsh.Range("A2:D" & i).Copy Range("A" & k + 1)End IfNextEnd S