我有一个简单的请求,要将数据完全粘贴到Excel中可见的位置。
我有mm/yyyy
格式的日期列表,但Excel会不断添加mm/dd/yyyy
,这使我的分析不可行。它的格式设置为简单显示,mm/yyyy
但实际单元格值始终设置为mm/01/yyyy
。
我怎样才能简单地复制/粘贴值为be mm/yyyy
。
我已经尝试过了Range("A1").Value = Range("A1").Value
,但是当然可以保持相同的信息。
是的,就我而言,因为它是日期,所以我可以做一个kludgy函数,该函数采用左三个字符,并与最右四个字符组合。但是,这实际上只是获得返回的日期数字。我试着G4
和得到4171730
。另外,我也想知道如何使用其他类型的单元格值(字符串,数字等)执行此操作。
保存值和格式,然后将单元格设置为文本并分配格式化的值:
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句