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

zb90

比如说 76.34就是返回7   0.034 就是返回3  0.00000000009就是返回9 也就是通俗的讲返回的首位数字不能是0，怎么搞这个。

wodewan

=LEFT(A1*10^10,1)

zb90

wodewan 发表于 2019-12-16 15:47
=LEFT(A1*10^10,1)

万一有极端数字 能否用VBA呢

山菊花

Left(Val(Replace(76.34, ".", "")), 1)

NadrsSaber

1. Sub ok()
   
2.     Dim i, a
   
3.     For i = 1 To Len(CStr(Sheet2.[A1]))
   
4.         a = Mid(CStr(Sheet2.[A1]), i, 1)
   
5.         If a > 0 Then
   
6.             If VBA.IsNumeric(a) Then Sheet2.[B1] = a: Exit Sub
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

zb90

NadrsSaber 发表于 2019-12-16 15:53
Sub ok()
    Dim i, a
    For i = 1 To Len(CStr(Sheet2.[A1]))

你这只是一个单元格的 我要的是A列中有数字的所有单元格

Yalishanda30

附件供参考，如需要也可改成自定义函数
附件好像错了。。

一把小刀闯天下

Option Explicit

Sub test()
  Dim n
  n = "0.00000000000000000000000000000000000823456778"
  If IsNumeric(n) Then
    MsgBox Left(Replace(Replace(n, ".", vbNullString), "0", vbNullString), 1)
  End If
End Sub

microyip

1. Sub test()
   
2.     Dim nI As Integer, nNum As Double
   
3.     nNum = 60.0000071
   
4.     MsgBox Trim(nNum) & "首个非零值为：" & FirstNotZero(nNum)
   
5. End Sub
   
6. 
   
7. Private Function FirstNotZero(ByVal nNum As Double) As Integer
   
8.     Dim oData As Object
   
9.     If nNum = 0 Then Exit Function
   
10.     With CreateObject("Vbscript.RegExp")
    
11.         .Global = True
    
12.         .IgnoreCase = True
    
13.         .Pattern = "[^0.]"
    
14.         Set oData = .Execute(Trim(nNum))
    
15.         If oData.Count > 0 Then FirstNotZero = Val(oData(0))
    
16.     End With
    
17. End Function

复制代码

zb90