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

使用列的最后一行的值作为范围？

1 个答案: