vba excel取值问题

显示全部楼层 · 2013-7-8 17:25:21

=MID(LEFT("a"&$A2,SMALL((MMULT(N(MID($A2,ROW($1:97)+{0,1},1)-1)/1%+ROW($2:98),COLUMN(A2))),SMALL((MMULT(N(MID("a"&$A2,ROW($1:97)+{0,1},1)>"9"),{-1;1})>-1)/1%+ROW($2:98),COLUMN(A2)),15)CTRL+SHIFT+ENTER 假设需取值文本在A2单元格，这是一个通用的取值公式，功能是分段取值。如：surda021-61638818cn8818 公式结果 021-61638818 8818 存储两...

千问 · 2013-7-8 17:25:21

假设数据在单元格A1，在B1用公式=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789"))-1)可以得到第一个数字前的文字内容。代码的话，类似这样就可以：Sub xxx()Dim x As ByteFor x = 1 To Len(Range("A1"))If ...