Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: tayisha

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

  [复制链接]
发表于 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
复制代码
费了九牛二虎之力终于弄出来了:满意的话还是评一个最佳把
拆分工作薄.rar (12.37 KB, 下载次数: 23)
回复

使用道具 举报

 楼主| 发表于 2011-4-22 21:16 | 显示全部楼层
回复

使用道具 举报

发表于 2011-4-22 21:20 | 显示全部楼层
回复 tayisha 的帖子

不懂VBA很难看的懂。。只要你会用就可以了
这个程序我都弄了一个多小时。。
都还查了很多资料才弄出来
回复

使用道具 举报

 楼主| 发表于 2011-4-22 21:20 | 显示全部楼层
回复 sunjing-zxl 的帖子

问题是表是分开了,没有单独成表,还是在一个工作薄里么
回复

使用道具 举报

 楼主| 发表于 2011-4-22 21:22 | 显示全部楼层
回复 sunjing-zxl 的帖子

看看内容都知道您费了很大精神,呵呵,谢谢孙博

点评

你要用拆分工作薄那个程序。运行时候会弹出对话框,你自己选择存放分表位置。然后确定。  发表于 2011-4-22 21:23
回复

使用道具 举报

发表于 2011-4-22 21:22 | 显示全部楼层
回复 tayisha 的帖子

不会啊,工作簿有表,而且把表也分开了
回复

使用道具 举报

 楼主| 发表于 2011-4-22 21:30 | 显示全部楼层
回复 sunjing-zxl 的帖子

单独发给每个公司的时候是不是要单表发,不能把其他表也发过去呢,会泄密的

点评

晕死你,程序用不来啊,给你传一个用程序的图画  发表于 2011-4-22 21:31
回复

使用道具 举报

发表于 2011-4-22 21:33 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2011-4-22 21:48 | 显示全部楼层
回复 sunjing-zxl 的帖子

主要是我中午没看懂,现在研究下
回复

使用道具 举报

发表于 2011-4-22 21:51 | 显示全部楼层
{:121:}不行啊
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-11-1 07:16 , Processed in 0.968908 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表