excel - Visual Basic Excel：将文本复制为文本

Question

我在做

Cells(101, 50).Value = Cells(100, 50).Value

并且 Cells(100,50) 中有“001234”。

问题是 Cells(101,50) 在语句执行后得到 1234。

谢谢您的帮助。

score 2 · Accepted Answer

Another way

Sub Sample()
    Cells(101, 50).Formula = "=TEXT(" & Cells(100, 50).Value & ",""000000"")"
End Sub

score 1 · Accepted Answer

尝试这个：

Cells(101,50).Value = "'" & Cells(100,50).Value

或将目标单元格的格式更改为文本

2 回答 2