如何在不更改日期的情况下将数字插入单元格中的VBA

Question

我试图在我的excel工作表中插入一个值，并且它不断将字符串更改为日期。例如，我尝试越过2-4（我们使用的单位名称之一），取而代之的是2020年2月4日。是否有办法防止其被更改？

x = 5
    For i = 1 To TheEnd - 1
        If IsEmpty(LANL(i, 1)) Then
            If Percent(i, 1) = 1 Then
                Cells(x, 1) = SU(i, 1)
                x = x + 1
            End If
        End If
    Next i

Answer 1

如果我们做类似的事情：

Sub qwerty()
    With ActiveCell
        .Clear
        .NumberFormat = "@"
        .Value = "2-4"
        .ClearFormats
    End With
End Sub

我们的结果将是：