请教字符比大小的问题

ccc919 · 发表于 2018-7-13 09:36

本帖最后由 ccc919 于 2018-7-13 10:31 编辑

A列多个单元格数据为变量多行 A1： 18/24/32/12                      输出结果为：B1：32
A2： 20/54+2/12/54 (aabb)             输出结果为：B2：56
A3: 15/72/71+2 XN                         输出结果为：B3：73
A4： 98/25DN                            输出结果为：B4：98
A5: 54                                  输出结果为：B5：54
.................
依此往下，行数有多有少
请教用VBA 如何实现条件判断取最大一个数值输出到B1:B2:B3:B4:B5单元格？

zhangzhang · 发表于 2018-7-13 11:24

详见附件。。。。。。。。。。。

zhangzhang · 发表于 2018-7-13 09:45

B3 应该是 72？
最好有附件

ccc919 · 发表于 2018-7-13 09:46

zhangzhang 发表于 2018-7-13 09:45
B3 应该是 72？
最好有附件

写错了是72...

zhangzhang · 发表于 2018-7-13 10:14

详见附件，供参考。。。。。。。。。。。

ccc919 · 发表于 2018-7-13 10:24

本帖最后由 ccc919 于 2018-7-13 10:56 编辑

zhangzhang 发表于 2018-7-13 10:14
详见附件，供参考。。。。。。。。。。。

大佬，求解如果有+2 的怎么做附件在下面

ccc919 · 发表于 2018-7-13 10:28

zhangzhang 发表于 2018-7-13 10:14
详见附件，供参考。。。。。。。。。。。

你好，如果是数值后面再+2该如何表示，请看下新附件

test.rar (13.47 KB, 下载次数: 2)

excelvlookup · 发表于 2018-7-13 10:43

sub aa()
tx=sheet1.range("a1")
sz='0123456789'
for i=1 to len(tx)
s=mid(tx,i,1)
if instr(sz,s) then
t=t&s
else
if t<>"" then
if int(t)>x then x=int(t):t=""
end if
end if
next
if t<>"" then
if int(t)>x then x=int(t)
end if
sheet1.range("")b1=x
end sub
没附件，没测试，只做了A1的，别的自己加循环

ccc919 · 发表于 2018-7-13 11:31

本帖最后由 ccc919 于 2018-7-13 12:40 编辑

zhangzhang 发表于 2018-7-13 11:24
详见附件。。。。。。。。。。。

如果用 Reg.Pattern = "[a-zA-Z\(\)]" 正则表达式对于中文数字呢？怎么设定？如果是 52/22+2/56(额)或者 52/22+2/56(呵11ab呵)不好这样怎么写？

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

[求助] 请教字符比大小的问题

评分

评分