1900/1/1转2024/11/1

ning84

必须记住Rows.count的应用。

1. Private Sub Tmp()
   
2.    Dim Tmp As Worksheet, Sht As Worksheet
   
3.        Set Tmp = Sheets("Tmp")
   
4.        Set Sht = Sheets("Hotel")
   
5.    Dim Shp As Shape
   
6.    Dim Shps As Shapes
   
7.        Set Shps = Tmp.Shapes
   
8.        For ii = Shps.Count To 1 Step -1
   
9.              Set Shp = Shps(ii)
   
10.              Debug.Print Shp.Name, Shp.Type
    
11.              Shp.Delete
    
12.        Next ii
    
13.    Dim Rr1, Rr2
    
14.    Dim oDate As Date
    
15.    Dim Rng As Range
    
16.        With Sht
    
17.            
    
18.            Rr2 = .Cells(.Rows.Count, 2).End(xlUp).Row
    
19.            Rr1 = .Cells(1, 2).End(xlDown).Row + 1
    
20.              'set rng= .Range  ( .Cells (1,2).end(xldown).row,"A"),.Cells (6555556,2).end(xlup).row,"E") )
    
21.          Set Rng = .Range(.Cells(Rr1, "B"), .Cells(Rr2, "B"))
    
22.            Debug.Print Rng.Address
    
23.            
    
24.        End With
    
25.       
    
26.        For ii = 1 To Rng.Rows.Count
    
27.            If IsDate(Rng(ii, 1)) Then
    
28.               oDate = Rng(ii, 1)
    
29.               
    
30.               Rng(ii, 1) = "2024/11/" & Format(oDate, "d")
    
31.               
    
32.            End If
    
33.        Next ii
    
34.       
    
35.    
    
36. End Sub
    

复制代码

  

1900/1/1

  

1900/1/2

  

1900/1/3

  

1900/1/4