...6w2q9q2x 然后每隔两个加上冒号4a:5r:5w:2q:9q:2x

提问网友发布时间：2024-04-03 04:11

声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com

共5个回答

热心网友回答时间：2024-04-08 13:41

将下面函数放入模块中，然后在要存放结果的单元格里输入 =crazy0qwer("A1") (这里假设
要处理的数据在A1单元格)。然后该单元格就可以显示处理后的数据，源数据不变。

说白了这个函数的功能就是在每个字母后面加上冒号，不管数据长短都可以。

Private Function crazy0qwer(ByVal String1 As String) As String '参数为源数据单元格如 "A1"
Dim i As Long, Str1 As String, Str2 As String
String1 = Range(String1).Value '获取给定单元格的值
For i = 1 To Len(String1)
Str2 = Mid(String1, i, 1) '分解
Str1 = IIf((Str2 > "9" Or Str2 < "0"), Str1 & Str2 & ":", Str1 & Str2) '如果分解出的字符非数字则加冒号
Next
If Right(Str1, 1) = ":" Then Str1 = Mid(Str1, 1, Len(Str1) - 1) '如果最后一个字符为冒号则去掉
crazy0qwer = Str1 '将结果给函数返回值
End Function

热心网友回答时间：2024-04-08 13:36

在英文输入法下就可以吧。

热心网友回答时间：2024-04-08 13:37

＝MID(A:A,1,2)&":"&MID(A:A,3,2)&":"&MID(A:A,5,2)......
如果字段都一样长，就按上面的规律输入公式，如果字段不一样长，那就有点麻烦。

热心网友回答时间：2024-04-08 13:39

若不长的话用固定宽度分列，然后再用函数合并

分列好后用连字符连夹冒号连起来。

热心网友回答时间：2024-04-08 13:42

如果非要函数就比较麻烦，

要是一次出来的话有简单快速的方法

用excel 分列固定宽度二个字符一分
然后把分好的数复制到 txt文本文件
然后用替换查找字符，就复制两个字符间的那个空格替换成：然后全部替换就可以了
基本1分钟可以OK

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决

等待解决

首页

互助专区

登录

注册

...6w2q9q2x 然后每隔两个加上冒号4a:5r:5w:2q:9q:2x