register313

回復 1# baa168

1. Sub AA()
   
2. Columns("G:H") = ""
   
3. [G3] = "日期": [H3] = "內容"
   
4. T = 4
   
5. For R = 4 To Range("A65536").End(xlUp).Row
   
6.   If (Month(Cells(R, "A")) <> Month(Cells(R + 1, "A"))) Or (R = Range("A65536").End(xlUp).Row) Then
   
7.      Cells(T, "G") = Right(Cells(R, "A"), Len(Cells(R, "A")) - 5)
   
8.      Cells(T, "G").NumberFormatLocal = "m/d;@"
   
9.      Cells(T, "H") = Cells(R, "B")
   
10.      T = T + 1
    
11.   End If
    
12. Next R
    
13. End Sub

複製代碼

register313

回復 9# baa168

1. Sub AA()
   
2. Sheets("Sheet2").Columns("A:B") = ""
   
3. Sheets("Sheet2").[A3] = "日期": Sheets("Sheet2").[B3] = "內容"
   
4. T = 4
   
5. With Sheets("Sheet1")
   
6. For R = 4 To .Range("A65536").End(xlUp).Row
   
7.   If (Month(.Cells(R, "A")) <> Month(.Cells(R + 1, "A"))) Or (R = .Range("A65536").End(xlUp).Row) Then
   
8.      Sheets("Sheet2").Cells(T, "A") = Right(.Cells(R, "A"), Len(.Cells(R, "A")) - 5)
   
9.      Sheets("Sheet2").Cells(T, "A").NumberFormatLocal = "m/d;@"
   
10.      Sheets("Sheet2").Cells(T, "B") = .Cells(R, "B")
    
11.      T = T + 1
    
12.   End If
    
13. Next R
    
14. End With
    
15. End Sub

複製代碼