使用列最後一行的值作爲範圍？

Question

我有一個vba代碼，它基於excel中的3個單元格確定日期，然後重新格式化日期。

Sub Test() 

Dim i As Long 
i = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row 

Range("K3").Formula = "=DATE(A3,G3,H3)" 
Range("K3").AutoFill Destination:=Range("K3:K28") 

Set fmt = Range("K3:K28") 
fmt.NumberFormat = "ddmmmyyyy" 

End Sub 

將值「i」（即28）的值確定該列中最後一個已填充的單元格。 我想在範圍中使用「i」的值作爲K28。

我對VBA相當陌生，一直未能弄清楚如何完成這項任務。

Answer 1

您可以稍微簡化您的代碼。有沒有必要使用AutoFill：

Sub Test() 
    Dim i As Long 
    With Sheet1 
     i = .Cells(.Rows.Count, 2).End(xlUp).Row 
     With .Range("K3:K" & i) 
      .Formula = "=DATE(A3,G3,H3)" 
      .NumberFormat = "ddmmmyyyy" 
     End With 
    End With 
End Sub