yyyy-m-dd提M

ddz79101

老师！希望年月日中提取月，但代码显示年月且都不对。请老师看看。谢谢！

lcluck2002

代码没问题啊。只是需要把格式显示成常规或是数值就行啦。

ww87725244

1. Sub aa()
   
2. Dim ar, i, ar1(1 To 10000, 1 To 1)
   
3. With Sheet1
   
4.     ar = .Range("c2:d" & .Range("d65535").End(xlUp).Row)
   
5.     For i = 1 To UBound(ar)
   
6.         ar1(i, 1) = Month(ar(i, 1)) & ar(i, 2)
   
7.     Next
   
8.     .[g2].Resize(UBound(ar1), UBound(ar1, 2)) = ar1
   
9. End With
   
10. End Sub

复制代码

ddz79101

lcluck2002 发表于 2024-10-28 16:17
代码没问题啊。只是需要把格式显示成常规或是数值就行啦。

谢谢老师！这样呀！那我还要插句代码让列转为常规个是吗

张小生

把希望结果那一列的格式设置成常规就行了

ddz79101

张小生 发表于 2024-10-28 16:25
把希望结果那一列的格式设置成常规就行了

谢谢老师！知道了

yanglinzi

把代码改成这样就行了

yanglinzi

ddz79101

yanglinzi 发表于 2024-10-28 16:47

谢谢老师！运行成功