excel - .range(ContRow&":"&ContRow).entirerow.Delete

Question

这是我遇到问题的行：

.range(ContRow&":"&ContRow).entirerow.Delete 

这是宏：

Sub Cont_Delete()
    With Sheet1
        If MsgBox("Are you sure you want to delete this record?", vbYesNo, "Delete 
         Record") = vbNo Then Exit Sub
        If .Range("B3").Value = Empty Then Exit Sub
        ContRow = .Range("B3").Value.Range(ContRow&":"&ContRow).EntireRow.Delete.Range("D18").Select
    End With
End Sub

错误信息：

Syntax error and compile error expected: list separator or )

标签： excelvba

Answer 1

你正在连接代码行

你很可能需要这个：

Sub Cont_Delete()
    With Sheet1
        If IsEmpty(.Range("B3")) Then Exit Sub
        If MsgBox("Are you sure you want to delete this record?", vbYesNo, "Delete Record ") = vbNo Then Exit Sub
        .Rows(.Range("B3").Value).EntireRow.Delete
        .Range("D18").Select
    End With
End Sub