[已解决]有没有一个公式把1表分割成2、3、4、5

tayisha

有没有一个公式把1表分割成2、3、4、5 请教.rar (19.44 KB, 下载次数: 40)

2011-4-13 21:52 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-4-22 20:50

回复 tayisha 的帖子

1. Sub 拆分工作薄()
   
2. Application.ScreenUpdating = False
   
3. Call 拆分工作表
   
4. Dim fd As FileDialog, path As String, sht As Worksheet
   
5. Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
6. If fd.Show = -1 Then
   
7. path = fd.SelectedItems(1) & IIf(Right(fd.SelectedItems(1), 1) = "", "", "")
   
8. Else: Exit Sub
   
9. End If
   
10. For Each sht In Sheets
    
11. sht.Copy
    
12. ActiveWorkbook.SaveAs path & sht.Name, xlWorkbookDefault
    
13. ActiveWorkbook.Close
    
14. Next sht
    
15. Application.ScreenUpdating = True
    
16. End Sub
    
17. Sub 拆分工作表()
    
18. Dim sht As Worksheet, bm As String
    
19. Dim Rng1 As Range, Rng2 As Range
    
20. Set Rng1 = Range("A1").Resize(1, 8)
    
21. K = [B65536].End(xlUp).Row
    
22. For Ro = 2 To [A65536].End(xlUp).Row
    
23. bm = Cells(Ro, 1)
    
24. i = Ro
    
25. Do
    
26. i = i + 1
    
27. If i > K Then
    
28. Exit Do
    
29. End If
    
30. Loop Until Cells(i, 1) <> ""
    
31. Set Rng2 = Range("A" & Ro).Resize(i - Ro, 8)
    
32. Set Rng2 = Union(Rng1, Rng2)
    
33. Set sht = Sheets.Add
    
34. sht.Name = bm
    
35. Rng2.Copy Sheets(bm).[A1]
    
36. Sheets("所属各地分公司").Select
    
37. Ro = i - 1
    
38. Next Ro
    
39. End Sub

复制代码

费了九牛二虎之力终于弄出来了：满意的话还是评一个最佳把
(, 下载次数: 23)

上传

点击文件名下载附件

跳转到最佳答案楼层

tayisha

拜求解！！

飞天小猪

听说宏4.0可以跨表引用

tayisha

跨表引用是数据，表格格式会没有吧

tayisha

{:171:}有希望

mqvh

回复 tayisha 的帖子

半自动的！~
格式是固定的！~
要全自动的话 需要写VB

sunjing-zxl

回复 tayisha 的帖子

先占位，下午来看

tayisha

比我高一个班

ml6236

不会呀  555555555555

tayisha

求解呀