中function切断前导0

我正在使用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