提取一列小数后一位形成一行数字.如：0.14、0.03、0.28、0.34、.48、0.59、0.67、0.79、0.88、0.97、0.01、0.39等等一列数形成一行数字：1023456789

Question

提取一列小数后一位形成一行数字.如：0.14、0.03、0.28、0.34、.48、0.59、0.67、0.79、0.88、0.97、0.01、0.39等等一列数形成一行数字：1023456789

Answer 1

在Excel VBA中用如下程序实现：
Public Sub test()
xx = Array(0.14,0.03,0.28,0.34,0.48,0.59,0.67,0.79,0.88,0.97,0.01,0.39)
zfc = ""
For Each x In xx
zfc = zfc & Int(10 * (x - Int(x)))
Next
MsgBox zfc
End Sub