如何用VBA或者函数提取数据中的第一个非0数字

zb90

zb90 发表于 2019-12-16 16:11

自动计算A列的首位

NadrsSaber

zb90 发表于 2019-12-16 15:59
你这只是一个单元格的 我要的是A列中有数字的所有单元格

, 你不是要个方法吗?
你也没附件啊, 自己写个循环就行了呀

zb90

NadrsSaber 发表于 2019-12-16 16:12
, 你不是要个方法吗?
你也没附件啊, 自己写个循环就行了呀

写一下啦，就是A列所有数字

wodewan

我是当炮灰了，你这数字也是够极端了，引出了这么多大神，上面谁便那个大神的代码加到循环里不就可以了。Sub test()i = 1
Do Until Cells(i, 1) = ""
Cells(i, 2) = Left(Val(Replace(Cells(i, 1), ".", "")), 1)
i = i + 1
Loop
End Sub

Jason_WangSS

山菊花 发表于 2019-12-16 15:52
Left(Val(Replace(76.34, ".", "")), 1)

很棒的思路，赞

YZC51

一把小刀闯天下 发表于 2019-12-16 16:06
Option Explicit

Sub test()

学习老师的代码。谢谢老师！
Public Function ss(n)
    ss = Left(Val(Replace(n, ".", "")), 1)
End Function

一把小刀闯天下

YZC51 发表于 2019-12-17 14:21
学习老师的代码。谢谢老师！
Public Function ss(n)
    ss = Left(Val(Replace(n, ".", "")), 1)

老师不敢当，我是来学VBA的

-----------------
我这是暴力法，你这属于非暴力法，，，

YZC51

一把小刀闯天下 发表于 2019-12-17 14:41
老师不敢当，我是来学VBA的

-----------------

老师德才双全，谦虚谨慎。令人仰慕！