格式变化

牛牛神哦

请教大神，为何我使用程序后，格式会自动变化？而且奇怪的是，只有前两个单元格的格式变了，后面两个又没有变。我想维持原有的格式，如何才能做到？

Range("v2:y2").Value = Range("p2:S2").Value

xlj310

复制，先粘贴格式，再粘贴数据
后面两个没变的原因是 那两个内容不是一个合法的日期。 所以没有被自动转换。
前面 那个被当成了24年1月11号。  24年没有27月10号，所以没自动转换。

牛牛神哦

xlj310 发表于 2024-9-14 17:20
复制，先粘贴格式，再粘贴数据
后面两个没变的原因是 那两个内容不是一个合法的日期。 所以没有被自动转换 ...

感谢回复。
复制粘贴是可以的，如果直接用等号，可以实现吗？

牛牛神哦

找到办法了，增加一行，将格式固定为文本，就可以了。

Range("v2:y2").NumberFormat = "@"
Range("v2:y2").Value = Range("p2:S2").Value

牛牛神哦

牛牛神哦 发表于 2024-9-14 17:22
感谢回复。
复制粘贴是可以的，如果直接用等号，可以实现吗？

找到办法了，加上第一行，将格式固定为文本，就可以了。
Range("v2:y2").NumberFormat = "@"
  
  Range("v2:y2").Value = Range("p2:S2").Value

smuuwl

1. Range("v2:y2").Copy:Range("v2").PasteSpecial

复制代码

2425807720

copy，或者引用之前先设置文本格式