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

Question

我在做

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

并且细胞中有“001234”（100,50）。

问题是在语句执行后，Cells（101,50）得到1234。

感谢您的帮助。

Answer 1

另一种方式

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

Answer 2

试试这个：

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

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