.range(ContRow&“:”&ContRow).entirerow.Delete

时间:2019-03-09 09:49:29

标签: excel vba

这是我遇到的问题:

var observer = new MutationObserver(() => {
    let reactRoot = document.getElementById("react-root");

    if(reactRoot){
        ReactDOM.render(
            <Component prop={prop}/>,
        );

        observer.disconnect();
    }
});

observer.observe(document.body, {childList: true});

这是宏:

.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

1 个答案:

答案 0 :(得分:0)

您正在连接代码行

您最可能需要此:

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