恳请大神们帮忙把这个日期改成1号

qiongmei6

我e列有很多日期，我想求得一个代码，把e6：e125中凡是日期不是1号的都要改成1号，谢谢各位大神的帮忙

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()   '//2025.3.31
   
2.     Set Rng = Range("e6").CurrentRegion
   
3.     For Each k In Rng
   
4.         rq = k.Value
   
5.         k.Value = DateSerial(Year(rq), Month(rq), 1)
   
6.     Next
   
7. End Sub
   

复制代码

qiongmei6

谢谢ykcbf1100大神的帮忙，但是在左边加一行文字就出现如图错误了，能否修改成不影响左右列，发错误的文件上来，能否麻烦您再次帮忙修改下，再次多谢您的帮忙

Qs18

1. Sub qs()   '//2025.3.31
   
2.     arr = Range("e6:e" & Cells(Rows.Count, "e").End(3).Row)
   
3.     For i = 1 To UBound(arr)
   
4.         arr(i, 1) = DateSerial(Year(arr(i, 1)), Month(arr(i, 1)), 1)
   
5.     Next
   
6.     Range("e6").Resize(UBound(arr), 1) = arr
   
7. End Sub

复制代码

Qs18

试试............

ykcbf1100

qiongmei6 发表于 2025-4-1 13:49
谢谢ykcbf1100大神的帮忙，但是在左边加一行文字就出现如图错误了，能否修改成不影响左右列，发错误的文件 ...

改好了。。。

杨建营

取值只取E列值，请参考。