Excel 我在这里得到编译错误结束如果没有块如果？

这很可能是一个缩进问题。很难从您的原始帖子中分辨出来，因为它也缺少缩进，但是错误意味着它无法理解

If

子句

End If

所指的是什么。它应该看起来像你在下面看到的东西

您的代码包含的

ws\u output=“Rs”

与然后更改的代码位于同一行，您应该是好的

Dim sCellVal As String

sCellVal = Range("F7").Value
    'gets error end if without block if
    If sCellVal Like "*700*" Or _
        sCellVal Like "800*" Then ws_output = "Rs"
        next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        Sheets(ws_output).Cells(next_row, 1).Value = Range("date").Value
        Sheets(ws_output).Cells(next_row, 2).Value = Range("name1").Value
        Sheets(ws_output).Cells(next_row, 3).Value = Range("rs_number").Value
        Sheets(ws_output).Cells(next_row, 4).Value = Range("amount1").Value
    End If

编辑：如果你能以正确的格式输入你的代码，那会很有帮助——使用编辑器的“代码”功能，结果会更好。这样我们就可以看到问题可能出在哪里

sCellVal = Range("F7").Value 
If sCellVal Like "700" Or _ sCellVal Like "800*" Then 
    ws_output = "Rs" 
    next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row 
    Sheets(ws_output).Cells(next_row, 1).Value = Range("date").Value 
    Sheets(ws_output).Cells(next_row, 2).Value = Range("name1").Value 
    Sheets(ws_output).Cells(next_row, 3).Value = Range("rs_number").Value 
    Sheets(ws_output).Cells(next_row, 4).Value = Range("amount1").Value 
End If