Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/sharepoint/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 应为:Excel中的语句结束错误_Vba_Excel - Fatal编程技术网

Vba 应为:Excel中的语句结束错误

Vba 应为:Excel中的语句结束错误,vba,excel,Vba,Excel,我正在尝试删除代码中符合指定条件的行。我也得到语法错误。我直接在Excel开发人员窗口中键入 Sub create() Dim ed(1 To 944) Dim female(1 To 944) Dim edfemale(1 To 944) For i = 1 To 944 ed(i) = Cells(i, 1).Value female(i) = Cells(i, 13).Value edfemale(i) =

我正在尝试删除代码中符合指定条件的行。我也得到语法错误。我直接在Excel开发人员窗口中键入

Sub create()
    Dim ed(1 To 944)
    Dim female(1 To 944)
    Dim edfemale(1 To 944)

    For i = 1 To 944
        ed(i) = Cells(i, 1).Value
        female(i) = Cells(i, 13).Value
        edfemale(i) = Cells(i, 1) * Cells(i, 13)

        If edfemale(i) = 0 Then
            Cells(i,1 to 14) = ""
        End If
    Next i
End Sub

我无法重现“预期:语句结束”错误。第行出现语法错误:

Cells(i, 1 to 14) = ""
但是:

如果要删除整行,应使用:

Cells(i).EntireRow.Delete xlUp
Range(Cells(i, 1), Cells(i, 14)).Clear
如果要清除行内容(如我在代码中看到的),则应使用:

Cells(i).EntireRow.Delete xlUp
Range(Cells(i, 1), Cells(i, 14)).Clear

您在这里要做什么:
单元格(i,1到14)=“”
?范围(单元格(i,1),单元格(i,14))。value=“”