删除 excel 中的第一个零
Remove the first zeros in excel
我想在 Excel 中删除以下代码中的第一个零,问题是零的模式不同。我该怎么做才能实现这一目标?
之前的代码:
0000450D
00320A
0000107B
023B
我希望代码是这样的:
450D
320A
107B
23B
有什么想法吗?
谢谢!
如果您愿意使用 VBA,请将下面的代码插入新模块并在您的 sheet 上使用 =ReplaceZeros(A1)
等函数
Public Function ReplaceZeros(varVal As String)
varLeading = True
For i = 1 To Len(varVal)
If Mid(varVal, i, 1) = "0" Then
If varLeading = False Then
varOutput = varOutput & Mid(varVal, i, 1)
End If
ElseIf Mid(varVal, i, 1) = " " Then
varLeading = True
varOutput = varOutput & Mid(varVal, i, 1)
Else
varLeading = False
varOutput = varOutput & Mid(varVal, i, 1)
End If
Next
ReplaceZeros = varOutput
End Function
这将简单地循环字符并从字符串的开头删除前导零,或者在 space
之后
试试这个:
=MID(A1,FIND(LEFT(SUBSTITUTE(A1,0,"")),A1),255)
我想在 Excel 中删除以下代码中的第一个零,问题是零的模式不同。我该怎么做才能实现这一目标?
之前的代码: 0000450D 00320A 0000107B 023B
我希望代码是这样的: 450D 320A 107B 23B
有什么想法吗? 谢谢!
如果您愿意使用 VBA,请将下面的代码插入新模块并在您的 sheet 上使用 =ReplaceZeros(A1)
Public Function ReplaceZeros(varVal As String)
varLeading = True
For i = 1 To Len(varVal)
If Mid(varVal, i, 1) = "0" Then
If varLeading = False Then
varOutput = varOutput & Mid(varVal, i, 1)
End If
ElseIf Mid(varVal, i, 1) = " " Then
varLeading = True
varOutput = varOutput & Mid(varVal, i, 1)
Else
varLeading = False
varOutput = varOutput & Mid(varVal, i, 1)
End If
Next
ReplaceZeros = varOutput
End Function
这将简单地循环字符并从字符串的开头删除前导零,或者在 space
之后试试这个:
=MID(A1,FIND(LEFT(SUBSTITUTE(A1,0,"")),A1),255)