20240314_101132zZ转日期型（WPS-VB）

ning84

一直发愁，如何移植xcel,Ppt的VBA到WPS。实际使用，简单方便，没有任何障碍。






用Split,Left,Mide,Right

1. Sub ll()
   
2.    Dim Dic  As New Dictionary
   
3.        Set Dic = New Dictionary
   
4.    Dim Rng As Range
   
5.    Dim Arr, Str, Str1, ii
   
6.    Dim oDate As Date
   
7.        Set Rng = Selection.CurrentRegion
   
8.        For ii = 1 To Rng.Rows.Count
   
9.              'Debug.Print Rng(ii, 1)
   
10.              Arr = Split(Rng(ii, 1), "_")
    
11.              Str = Left(Arr(0), 4) & "/" & Mid(Arr(0), 5, 2) & "/" & Right(Arr(0), 2)
    
12.              Str1 = Left(Arr(1), 2) & ":" & Mid(Arr(1), 5, 2) & ":" & Right(Arr(1), 2)
    
13.             
    
14.              oDate = Str & " " & Str1
    
15.              Rng(ii, 2) = oDate
    
16.              Dic(oDate) = ""
    
17.             
    
18.        Next ii
    
19.       
    
20.        For ii = 0 To Dic.Count - 1
    
21.             Rng(ii, -2) = Dic.Keys(ii)
    
22.        Next ii
    
23. End Sub
    

复制代码