excel - 将值完全按照可见值粘贴到 Excel 中

Question

我有一个简单的请求，将数据完全粘贴到 Excel 中可见。

我有一个 mm/yyyy 格式的日期列表，但 Excel 不断添加 mm/dd/yyyy 这导致我的分析失败。它的格式设置为仅显示 mm/yyyy，但实际单元格值始终设置为 mm/01/yyyy。

如何简单地将值复制/粘贴为 mm/yyyy。

我尝试过 Range("A1").Value = Range("A1").Value，但当然只是保留相同的信息。

_{是的，在我的例子中，因为它是日期，我可以做一个笨拙的函数，它接受左边的三个字符，并与最右边的四个字符组合。然而，这实际上只是返回了日期数字。我尝试使用 G4 并得到 4171730。另外，我也想知道如何对其他类型的单元格值(字符串、数字等)执行此操作。}

Answer 1

保存值和格式，然后将单元格设置为文本并分配格式化值:

Sub test()
    Dim t As Variant
    t = Range("A1").Value2

    Dim x As String
    x = Range("A1").NumberFormat

    Range("A1").NumberFormat = "@"
    Range("A1").Value = Format(t, x)

End Sub

<小时/>

这也有效

Sub test()
    Dim t As String
    t = Range("A1").Text

    Range("A1").NumberFormat = "@"
    Range("A1").Value = t

End Sub