Question

我正在使用Mid（）从Oracle转储中提取信息，当我尝试提取一个前导为0的数字时，excel会自动将其删除。有没有办法保持0？

单元格中的示例6,1 =“0030645”

Sub snip4()

Dim text As String

text = Cells(6, 1).Value
Cells(7, 4) = Mid(text, 4, 4)
End Sub

输出到7,4 =“645”

所需输出=“ 0645 ”

单元格被转储为常规格式

Answer 1

您可以将单元格格式更改为“文字”：

Sub snip4()
    Dim text As String

    text = Cells(6, 1).Value
    With Cells(7, 4)
        .NumberFormat = "@"
        .Value = Mid(text, 4, 4)
    End With
End Sub

或其他选项 - 使用前缀字符：

Sub snip4()
    Dim text As String

    text = Cells(6, 1).Value
    Cells(7, 4) = "'" & Mid(text, 4, 4)
End Sub

Mid Function切断前导0

1 个答案: