GBKEE

回復 3# myleoyes

1. Sub Ex()
   
2.      Dim R%, C%
   
3.      With Sheet1
   
4.         C = Month(Date) * 3
   
5.         R = IIf(.Cells(Rows.Count, C).End(3).Row > .Cells(Rows.Count, C + 1).End(3).Row, .Cells(Rows.Count, C).End(3).Row, .Cells(Rows.Count, C + 1).End(3).Row)
   
6.         .Cells(R + 1, C).Select
   
7.       End With
   
8. End Sub

複製代碼