excel - Visual Basic Excel: テキストをテキストとしてコピーする

Question

私がやっている

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

Cells(100,50)には「001234」があります。

問題は、ステートメントの実行後に 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

または、ターゲット セルの形式をテキストに変更します。