[已解决]一个简单的转换，一直没搞定，请高手进来研究一下

tzjx200521

说明A列和B列数据去掉S后提出来的数是 16进制的，能实现转换后的效果吗？
有没有什么办转换成转换后的数据、

转换前	转换后
S04	4
S10	10
S0F	f
S1A	1a

最佳答案

月排行榜 / 总排行榜

grf1973

2015-10-30 13:25

b2=LOWER(DEC2HEX(HEX2DEC(SUBSTITUTE(A2,"S",""))))

跳转到最佳答案楼层

baksy

附件

grf1973

b2=LOWER(DEC2HEX(HEX2DEC(SUBSTITUTE(A2,"S",""))))

tzjx200521

grf1973 发表于 2015-10-30 13:25
b2=LOWER(DEC2HEX(HEX2DEC(SUBSTITUTE(A2,"S",""))))

有上百万行    请用VBA解 决下

tzjx200521

baksy 发表于 2015-10-30 13:22
附件

大小写都错的  ，，，还有请用V B A   

蝶·舞

直接固定列宽分列，要什么公式和VBA啊

tzjx200521

蝶·舞 发表于 2015-10-30 15:11
直接固定列宽分列，要什么公式和VBA啊

我其实是要从一个很复杂的格式中提取出这两个值  然后再转换   根本没法分列，几百万行数据啊   

雨吧

1. Sub test()
   
2.     Dim arr, brr(), i%
   
3.     arr = Range("a1").CurrentRegion
   
4.     ReDim brr(2 To UBound(arr), 1 To 1)
   
5.     For i = 2 To UBound(arr)
   
6.         brr(i, 1) = LCase(Replace(Replace(arr(i, 1), "S0", ""), "S", ""))
   
7.     Next
   
8.     [c2].Resize(UBound(brr) - 1) = brr
   
9.     MsgBox "转换结束！"
   
10. End Sub

复制代码

雨吧

tzjx200521 发表于 2015-10-30 13:50
有上百万行    请用VBA解 决下

楼主不需要VBA了？

tzjx200521

雨吧 发表于 2015-10-30 16:12

谢谢  已 经解决了