如果excel中的两个excel拆分单元格格里都有字符，如何选择最大的...

来源：蜘蛛抓取(WebSpider) 时间：2011-04-11 07:04 标签： excel拆分单元格
查看: 3117|回复: 3
阅读权限5UID535620函数0 关最后登录经验808 点在线时间23 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币951 个积分808精华0帖子日志注册时间
小学2年级, 积分 808, 距离下一级还需 92 积分
金币951 个积分808帖子
问题补充：
回答 C7C8合并，D7D8合并，C7中输入公式：=IF(COUNTIF($A$1:INDIRECT(&B&&$F$6),A7)=0,A7,&&)向右向下复制公式。
阅读权限5UID510925函数0 关最后登录经验602 点在线时间180 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币7946 个积分602精华0帖子日志注册时间
小学2年级, 积分 602, 距离下一级还需 298 积分
金币7946 个积分602帖子
阅读权限5UID510925函数0 关最后登录经验602 点在线时间180 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币7946 个积分602精华0帖子日志注册时间
小学2年级, 积分 602, 距离下一级还需 298 积分
金币7946 个积分602帖子
我也有这个问题，我以为有答案了
阅读权限5UID510925函数0 关最后登录经验602 点在线时间180 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币7946 个积分602精华0帖子日志注册时间
小学2年级, 积分 602, 距离下一级还需 298 积分
金币7946 个积分602帖子
EXCEL 对比两列单元格内相同字符和不同字符。
自定义函数
用法：=tong(a1,b1)
& && && & =butong(a1,b1)
Public Function Tong(s1$, s2$)
Dim i%, arr, d As Object, s$
x = Len(s1)
Set d = CreateObject(&scripting.dictionary&)
For i = 1 To x
& & s = Mid(s1, i, 1)
& & If InStr(s2, s) Then
& && &&&If Not d.exists(s) Then
& && &&&d.Add s, False
& && &&&End If
& & End If
arr = d.keys
Tong = Join(arr, & &)
End Function
Public Function buTong(s1$, s2$)
Dim i%, arr, arrr, d As Object, dd As Object, s$, a$
x = Len(s1)
y = Len(s2)
Set d = CreateObject(&scripting.dictionary&)
Set dd = CreateObject(&scripting.dictionary&)
For i = 1 To x + y
& & s = Mid(s1, i, 1)
& & a = Mid(s2, i, 1)
& & If InStr(s2, s) = 0 Then
& && &&&If Not d.exists(s) Then
& && &&&d.Add s, False
& && &&&End If
& & End If
& & If InStr(s1, a) = 0 Then
& && &&&If Not d.exists(a) Then
& && &&&d.Add a, False
& && &&&End If
& & End If
arr = d.keys
buTong = Join(arr)
End Function
我刚找到的答案
Powered by您还未登陆，请登录后操作！
B1 =LEFT(A1,8)
C1 =MID(A1,9,LEN(A1)-8)
将两公式均下拉复制。
1分别输入公式&=LEFT(A1,8)&、&=MID(A1,9,100)&，向下复制到第20行，分列结果如黄色和绿色区域。
2、分列法
选中分列前E1:E20如同现A1:A20数据，&数据/分列/固定宽度/下一步/用光标在第8与第9位数据之间点击形成上带箭头的直线/下一步/完成&，即可将原E列数据分列成目前橘红色状态。
★分列法就地实现分列，比公式法简捷实用。
供参考。
cpqxyl1824
★在提取字串末端字符时，"=MID()"函数第3参数，可以是大于被提取字串位数的任一整数。
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注问题补充&&
下一步。选中列，**——分列如果你数字长度全部相同。在预览处点击需要分隔的位置，可用分列的方法，选固定列宽
yyqq16888 &
•回答
•回答
•回答
•回答
•回答
公式 写错了应该是：=left(A1,LEN(A1)*2-LENB(A1)) =right(A1,LENB(A1)-LEN(A1))
wjp456789&
从你的例子看，数字都在前面，汉字集中在后面，可以这样做：C1=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,&0&,&&),&1&,&&),&2&,&&),&3&,&&),&4&,&&),&5&,&&),&6&,&&),&7&,&&),&8&,&&),&9&,&&)B1=SUBSTITUTE(A1,C1,&&)选定B1:C1下拉如图：这个方法的原理是，在原字符串中把数字都替换成&&，剩下的就是汉字字符串了。假定原字符串中汉字都集中在一起，在原字符串中，把集中在一起汉字替换成&&，剩下的就是数字字符串了。用如下VBA程序，则即使数字与汉字混杂在一起都能分离开来。为了不把B列和C列的公式冲掉，我把运行结果放在D列和E列：Sub 分离数字与汉字()Dim rng As Range, a$, b$, i%For Each rng In Intersect(UsedRange, Range(&A:A&))a$ = &'&b$ = &&For i% = 1 To Len(rng.Value)If Mid(rng.Value, i%, 1) Like &[0-9]& Thena$ = a$ & Mid(rng.Value, i%, 1)End IfIf Asc(Mid(rng.Value, i%, 1)) & 0 Thenb$ = b$ & Mid(rng.Value, i%, 1)End IfNext i%rng.Offset(, 3).Value = a$rng.Offset(, 4).Value = b$NextEnd Sub
lenb(A1)-len(A1)应该就是汉字的个数3，得出的就是显示的结果B1输入
=left(A1, 2*len(A1)-lenb(A1))C1输入
=right(A1,lenb(A1)-len(A1))
1、如果数字位数都是6位，公式最简单=midb(a2,(column(a1)-1)*6+1,6) 右拉填充，再下拉填充2、如果位数不定，楼上提供的各公式都可以。3、不用公式，原**不再保留，也可以用分列的方法。
jjchangyuan&
将公式修改如下：=LEFT(A1,LEN(A1)*2-LENB(A1))=RIGHT(A1,LENB(A1)-LEN(A1))
猜你感兴趣
服务声明： 信息来源于互联网，不保证内容的可靠性、真实性及准确性，仅供参考，版权归原作者所有！Copyright &
Powered by您还未登陆，请登录后操作！
EXCEL中有很多单元格，每个单元格中字符前有空白，如何用函数批量去掉单元格中的字符前的空白
L中有很多单元格，每个单元格中字符前有空白，如何用函数批量去掉单元格中的字符前的空白，谢谢
不知道你说的空白是有前导空格，还是一个单元没满有空白，如果是单元格没满，前面有空白，那么选中这些单元格－鼠标右键点击－设置单元格格式－对齐－水平对齐（靠左），就可以了。如果是有前导空格，可以用TRIM函数来解决的，比方说你的数据在A列，那么在B1中输入公式=TRIM(A1)，然后往下填充到数据结束处，这样前导空格将被删除。
try+F,在弹出的信息里,输入一个空格,外在选择替换中的,全部替换就OK了!
您的举报已经提交成功，我们将尽快处理，谢谢！
筛选功能。里有个空白选项就是了
大家还关注救急，如何判断两个字符串是否在excel中同一个单元格内？
[问题点数：30分，结帖人rarny]
救急，如何判断两个字符串是否在excel中同一个单元格内？
[问题点数：30分，结帖人rarny]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。

我要回帖

更多关于 excel拆分单元格 的文章

 

随机推荐