Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1202|回复: 1

怎样将文字和数字分2列显示

[复制链接]
发表于 2012-4-19 07:46 | 显示全部楼层 |阅读模式
中行41785015110010091252、青泥支行200303004500696、卡伦办事处801017651、站前支行0709000309221004055 、金州支行400301459508091
解答:1、
用函数可以解决。 假如A1 为 中行41785015110010091252
则B1=LEFT(A1,(SEARCHB("?",A1,1)-1)/2)、C1=MID(A1,LEN(B1)+1,50)、随后将B1、C1的公式往下复制。
2、
Sub 分列()
For Each jk In Sheet1.UsedRange.Columns(1).Cells
For i = 1 To Len(jk.Formula)
If Abs(Asc(Mid(jk.Formula, i, 1))) < 256 Then
Sheet1.Cells(jk.Row, (jk.Column + 1)).Formula = "'" & Right(jk.Formula, (Len(jk.Formula) - i + 1))
jk.Formula = Left(jk.Formula, (i - 1))
Exit For
End If
Next i
Next
End Sub

发表于 2012-4-19 08:20 | 显示全部楼层
大厉害了{:061:}                    
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-6-7 14:59 , Processed in 0.463847 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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