查看: 527|回复: 5
求助大神帮忙指点如何将一个单元格中的数据拆分成N个
阅读权限10
在线时间 小时
求助大神！急急急！
一个单元格中有“加加加加有限公司、减减有限公司、乘乘乘乘乘乘乘乘乘乘有限公司”等N个，分别用“、”隔开。
想把每一个公司名称取出来为一个单独的单元格，请问如何通过函数实现？
(1.43 KB, 下载次数: 11)
09:32 上传
点击文件名下载附件
阅读权限95
在线时间 小时
数据，以、号为条件　分列
阅读权限10
在线时间 小时
醉舞街头 发表于
数据，以、号为条件　分列
人间自有真情在！原来这么简单，百度了半天说了一堆函数没看懂！多谢大神指点！
另外再问一下，进阶版。。。
我一个表格有N个这样的单元格，比如A1-A10均需要拆分。
但是呢我想吧每个拆分完的数据纵向显示。比如A1中拆出了A、B、C，想把拆出来的A、B、C写到A2、A3、A4，将原来的A2串到A5。。。
数据特别多，如果少的话，我就自己用插入行，选择性粘贴“转至”手工操作了。。
请问大神有方法么？
阅读权限100
在线时间 小时
=TRIM(MID(SUBSTITUTE($A1,&、&,REPT(& &,99)),99*COLUMN(A1)-98,98))复制代码
阅读权限70
在线时间 小时
只能手工演示版了。
看图操作。
(1.02 MB, 下载次数: 3)
09:53 上传
阅读权限95
在线时间 小时
oceandahua 发表于
人间自有真情在！原来这么简单，百度了半天说了一堆函数没看懂！多谢大神指点！
另外再问一下，进阶版。 ...
一起复制了,转置粘贴不行吗
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 137|回复: 7
请教各位，有一汇总明细表，要指自动拆分并汇总求和。具体见内容
阅读权限20
在线时间 小时
总表有10000行数据，现在为了方便打印，要把它拆分成每50行为一个工作表（不是工作薄哦，当然如果实在不行，工作薄也行）需带表头，并对拆分后的表进行汇总求和。表格格式如图
之前有位大侠帮忙弄成拆分成工作薄，但是在求和汇总那里，所得的数据永远都是母表里的1-50行的和。。。其代码如下：
Dim newbook As Workbook
a = ThisWorkbook.Name
b = ActiveSheet.Name
Application.ScreenUpdating = False
For n = 0 To Range(&a65536&).End(xlUp).Row \ 49
Set newbook = Workbooks.Add
With newbook
newbook.Activate
Workbooks(a).Sheets(b).Rows(&1:1&).Copy newbook.Sheets(1).Cells(1, 1)
Workbooks(a).Sheets(b).Rows((49 * n + 2) & &:& & (49 * n + 50)).Copy newbook.Sheets(1).Cells(2, 1)
.Sheets(1).Cells(51, 1) = &合计&
.Sheets(1).Cells(51, 2) = Application.WorksheetFunction.Sum(Range(&B2:B50&))
.Sheets(1).Cells(51, 3) = Application.WorksheetFunction.Sum(Range(&C2:C50&))
.Sheets(1).Cells(51, 5) = Application.WorksheetFunction.Sum(Range(&E2:D50&))
.SaveAs Filename:=ThisWorkbook.Path & &\& & Replace(a, &.xls&, &&) & n & &.xls&
Application.ScreenUpdating = True
求大神解答！！非常感谢！！
(19.55 KB, 下载次数: 0)
09:37 上传
阅读权限100
在线时间 小时
欢迎新会员！
建议上传表格附件来说明问题。
求助帖子不要只上传图片。
没有表格附件的求助帖很少能获得满意的回复。
阅读权限20
在线时间 小时
无附件& &无真相
阅读权限70
在线时间 小时
求助应该附上附件，提供详细需求，最好有实例结果、样式说明
阅读权限20
在线时间 小时
& & & & & & & &
欢迎新会员！
建议上传表格附件来说明问题。
求助帖子不要只上传图片。
没看到在哪里传。。文件& &我找找&&重新开个贴
阅读权限20
在线时间 小时
求助应该附上附件，提供详细需求，最好有实例结果、样式说明
好的。。没看到在哪里传。。文件& &我找找&&重新开个贴
阅读权限20
在线时间 小时
无附件& &无真相
好的。。没看到在哪里传。。文件& &我找找&&重新开个贴
阅读权限30
在线时间 小时
欢迎新会员！
建议上传表格附件来说明问题。
求助帖子不要只上传图片。
呵呵……，2014年6月的新会员
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel里有没有方法，把一个整数平均分配到每行里，然后整列求和等于那个整数。-中国学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
excel里有没有方法，把一个整数平均分配到每行里，然后整列求和等于那个整数。
来源：互联网 发表时间： 4:01:23 责任编辑：李志喜字体：
为了帮助网友解决“excel里有没有方法，把一个整数平均分配到每行里，然后整列求和等于那个整数。”相关的问题，中国学网通过互联网对“excel里有没有方法，把一个整数平均分配到每行里，然后整列求和等于那个整数。”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:excel里有没有方法，把一个整数平均分配到每行里，然后整列求和等于那个整数。，具体解决方案如下：解决方案1：
但是还需要这一列里每行的数字不能一样 有没有要求每行必须是整数？不懂再追问有了整数。懂吗，我想让整列相加的数字等于这个整数？如果没有要求。等差或者等比数列求和，那真是很好办的
解决方案2：
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号问题是这样的：如何将一个Excel工作表的数据按一列的关键字拆分成多个工作表？举例说明：在平常工作中我们经常遇到这样的问题，这里分享一段VBA代码：Sub learningexcel()
Dim Arr, Rng As Range, Sht As Worksheet, Dic As Object
Dim k, t, Str As String, i As Long, lc As Long
Application.ScreenUpdating = False '关闭屏幕更新
Arr = Range(&A1&).CurrentRegion.Value
lc = UBound(Arr, 2) '求取最后一列的列号
Set Rng = Rows(1) '标题行
Set Dic = CreateObject(&Scripting.Dictionary&) '创建字典
For i = 2 To UBound(Arr)
Str = Arr(i, 3) '订单号，关键字，如果要换列，改这个数字即可
If Not Dic.Exists(Str) Then '如果字典没有关键字
Set Dic(Str) = Cells(i, 1).Resize(, lc) '把当前行装入到字典中
Else '否则(字典中存在关键字)
Set Dic(Str) = Union(Dic(Str), Cells(i, 1).Resize(, lc)) '把行连合起来
k = Dic.Keys '字典关键字集合
t = Dic.Items '字典项目集合
On Error Resume Next
With Sheets
For i = 0 To Dic.Count - 1 '循环关键字的个数
Set Sht = .Item(k(i)) '给变量赋值(工作表名为关键字)
If Sht Is Nothing Then '该工作表不存在则插入一个空工作表
.Add(After:=.Item(.Count)).Name = k(i) '新建的工作表将置于所有工作表之后，并命名为关键字
Set Sht = ActiveSheet '活动工作表给变量
Else '否则
Sht.Cells.Clear '清除工作中所有内容和格式
Rng.Copy Sht.Range(&A1&) '把标题写入第一行
t(i).Copy Sht.Range(&A2&) '写入其他内容
Sht.Cells.EntireColumn.AutoFit '自动调整全工作表单元格的列宽
Set Sht = Nothing '变量处于初始状态
Sheets(1).Activate '第1个工作表处于激活状态
Application.ScreenUpdating = True '打开屏幕更新End Sub说明：依据拆分的列中请勿带/*之类的通配符标识，否则会出错。延伸问题1：至于有了vba代码如何在excel中运行？解答：1、ALT+F11，进入VBE对话框2、右击-插入-模块3、输入代码(使用已有代码，直接复制粘贴进入即可），修改下4、按F5运行或者点击三角按钮运行代码5、查看效果延伸问题2:怎么拆分成工作簿，而不是工作表？解答：建议大家使用拆分为工作表，检查后再按工作表拆分为工作簿，拆分可以使用工具：易用宝下载易用宝的链接为：http://dl2.excelhome.net/EZTESetup1.1.0.zip 延伸问题3:怎么使用vba拆分成工作簿解答：请点击“阅读原文”阅读教程。
看过本文的人还看过
人气：35869 更新：
人气：33440 更新：
人气：29597 更新：
人气：24756 更新：
Excel的更多文章
大家在看 ^+^
推荐阅读 ^o^
美国十大梦校排行榜 | sorry，哈佛，美帝学生和家长最爱的都不是你！
天啊！今日下午瓯海瞿溪竟然下起了冰雹，约持续2分钟……
文|这些建议，给准备上大学的你
揭秘 | 民国时期南京一则震动政局的“愚人节假新闻”
猜你喜欢 ^_^
24小时热门文章
微信扫一扫
分享到朋友圈谢谢你，一下子明白了很多，如果不介意加个好友行不？
您的举报已经提交成功，我们将尽快处理，谢谢！
通过编写一些程序，完成所要做的工作。EXCEL主要语言是VB吧。
大家还关注}