高手帮我写一个取文件最后四位数改日期

xiaodong112233

高手帮我改一下取后四位。改成日期。

文件夹都想批量处理。
清除A1内容。在A1上重新填入日期。
如图。尾号0329 改成。3月29日 写在A1上。
谢谢

liulang0808

x="0329"
[a1]=val(left(x,2)) & "月" & right(x,2) & "日“

xiaodong112233

学习_2018 发表于 2024-5-3 17:40
文件发下，老铁

https://club.excelhome.net/thread-1691310-1-1.html 你看一下 谢谢
第二次不能上传文件

明天会更好zj

建议你规范录入日期，不要随心所欲处理数据，规范是正道。

ykcbf1100

参与一下，批量文件修改。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.3
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     p = ThisWorkbook.Path & ""
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
9.             fn = fso.GetBaseName(f)
   
10.             fn1 = Right(fn, 4)
    
11.             rq = Val(Mid(fn1, 1, 2)) & "月" & Val(Mid(fn1, 3, 2)) & "日"
    
12.             Set wb = Workbooks.Open(f, 0)
    
13.             wb.Sheets(1).[a1] = rq
    
14.             wb.Close 1
    
15.         End If
    
16.     Next f
    
17.     Application.ScreenUpdating = True
    
18.     MsgBox "OK！"
    
19. End Sub
    

复制代码

gwjkkkkk

1. =TEXT(A1,"00年00月")

复制代码

xiaodong112233

7楼 高手文件好用 谢谢