如果单元格不是空的,我需要使用VBA更改单元格格式

如果单元格不是空的,我需要使用VBA更改单元格格式,vba,excel,Vba,Excel,我找到了以下脚本: Sub Sample() Dim ws As Worksheet Dim lRow As Long Set ws = ThisWorkbook.Sheets("Template Allocation") With ws lRow = .Range("V8" & .Rows.Count).End(xlUp).Row .Range("V8:V" & lRow).NumberFormat = "dd/mm/y

我找到了以下脚本:

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long
    Set ws = ThisWorkbook.Sheets("Template Allocation")

    With ws
    lRow = .Range("V8" & .Rows.Count).End(xlUp).Row
        .Range("V8:V" & lRow).NumberFormat = "dd/mm/yyyy"
    End With
End Sub
但是有语法错误,我找不到,请帮助我

只需将
“V8”和.Rows.Count更改为
“V8:V”和.Rows.Count

With ws
    lRow = .Range("V8:V" & .Rows.Count).End(xlUp).Row
        .Range("V8:V" & lRow).NumberFormat = "dd/mm/yyyy"
 End With
Sub-Sample()将ws作为工作表调整lRow作为长集ws=ThisWorkbook.Sheets(“模板分配”),ws-lRow=.Range(“V8”&.Rows.Count”).End(xlUp).Row.Range(“V8:V”&lRow).NumberFormat=“dd/mm/yyyy”以End-Sub结束