公孙墨岚

原始数据如下Public Sub 生成文件()''类似工资条单独生成多了表vba，表名根据文件中数据生成' Application.ScreenUpdating = False Dim arr, wb As Workbook, i As Long, mFullpath$, FolderPath$ arr = Sheet1.UsedRange.Value ...