[已解决]怎么用指定区域的数据 生成多个EXCEL 文件

yunying99

怎么用指定区域的数据 生成多个EXCEL 文件，文件名可以用指定数字自增
例如

AAAA
注释
数据1 数据1 数据1 数据1 数据1
   1       1         1       1         1      
   1       1         1       1         1  
   1       1         1       1         1  
   1       1         1       1         1  

BBBB
注释
数据1 数据1 数据1 数据1 数据1
   1       1         1       1         1      
   1       1         1       1         1  
   1       1         1       1         1  
   1       1         1       1         1  

将AAAA与BBBB分别导出两个EXCEL文件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-26 17:08

………………

跳转到最佳答案楼层

yunying99

有大神来帮下忙吗 急等~！

那么的帅

提供具体附件，并举例说明

yunying99

那么的帅 发表于 2014-11-25 20:17
提供具体附件，并举例说明

老师，附件已经上传，望有空的时帮我解答这个问题，麻烦了~！

dsmch

1. Sub Macro1()
   
2. Dim arr, sht As Worksheet, i&, zf$$
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. arr = ActiveSheet.UsedRange
   
6. Set sht = ThisWorkbook.Sheets(1)
   
7. For i = 1 To UBound(arr)
   
8.     If arr(i, 1) Like "注释：*" Then
   
9.         zf = Split(arr(i, 1), "注释：")(1)
   
10.         With Workbooks.Add
    
11.             sht.Cells(i, 1).CurrentRegion.Copy .Sheets(1).[a1]
    
12.             .SaveAs Filename:=ThisWorkbook.Path & "" & zf & ".xls"
    
13.             Workbooks(zf).Close 1
    
14.         End With
    
15.     End If
    
16. Next
    
17. Application.DisplayAlerts = True
    
18. Application.ScreenUpdating = True
    
19. End Sub

复制代码

dsmch

………………

yunying99

dsmch 发表于 2014-11-26 09:19
………………

首先谢谢帮助，但是跟我的需求貌似有一点不一样。。。我的需求是从名字开始输出，并且可以按照自己输入的数字命名文件名，并且往上自增。

yunying99

yunying99 发表于 2014-11-26 15:11
首先谢谢帮助，但是跟我的需求貌似有一点不一样。。。我的需求是从名字开始输出，并且可以按照自己输入的 ...

麻烦了~！

yunying99

dsmch 发表于 2014-11-26 09:19
………………

老师，麻烦了你了~！

dsmch

………………