--求大师帮忙看看--

liumi521 · 发表于 2013-12-3 16:05

本帖最后由 liumi521 于 2013-12-5 13:49 编辑

求大师帮忙看看下图A1中的数字，00 01 02 11 12 22 32 44 ，是否可以用函数或公式把AA BB这类形式的数字自动删除.也就是把A1表格里的 00 11 22 44 自动删除.都是两位数字的，也就是00-99 十对数字.当我在其他行或者列里填完数字.只要出现 00 11 这类的就自动删除，是否可以实现呢.请大师帮忙

jsxjd · 发表于 2013-12-3 16:25

Sub DeleteDoubleDigits()
For Each s In Range("A1:A" & [a65536].End(xlUp).Row)
a = Split(s.Value, " ")
x = ""
For Each aa In a
If Left(aa, 1) <> Right(aa, 1) Then x = x & " " & aa
Next
s.Value = Trim(x)
Next
End Sub

复制代码

liumi521 · 发表于 2013-12-3 16:32

本帖最后由 liumi521 于 2013-12-3 16:34 编辑

jsxjd 发表于 2013-12-3 16:25

是代码吗宏？我未能实现.能否把做好的表格传上来谢谢

liumi521 · 发表于 2013-12-3 18:14

谁能帮我下、谢谢了

jsxjd · 发表于 2013-12-3 18:49

liumi521 发表于 2013-12-3 18:14
谁能帮我下、谢谢了

查看附件……

工作表.rar (7.7 KB, 下载次数: 5)

liumi521 · 发表于 2013-12-3 19:02

jsxjd 发表于 2013-12-3 18:49
查看附件……

非常感谢.解决了完美

dengjq2000 · 发表于 2013-12-3 20:13

也可以通过公式来解决
点击单元格B1，通过插入 - 名称创建一个名称：替换 =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Sheet1!A1,"00 ",),"11 ",),"22 ",),"33 ",),"44 ",),"55 ",)
然后在B1单元格输入公式：
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(替换,"66 ",),"77 ",),"88 ",),"99 ",) 往下拉

		自动登录	找回密码
密码			免费注册

[已解决] --求大师帮忙看看--

评分