在Excel中粘贴一个完全相同的值

Question

我有一个简单的要求,粘贴完全一样的数据可见在Excel中.

我有一个mm/yyyy格式的日期列表,但Excel不断添加mm/dd/yyyy,这会丢掉我的分析.它的格式很简单,mm/yyyy但实际的单元格值仍然设置为mm/01/yyyy.

我怎样才能简单地复制/粘贴值mm/yyyy.

我试过了Range("A1").Value = Range("A1").Value,但当然这只是保持相同的信息.

_{是的,在我的情况下,因为它的日期,我可以做一个kludgy函数,左边的三个字符,并与最右边的四个字符组合.但是,这真的只是返回了返回的日期.我试着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