Vba 应为:Excel中的语句结束错误
我正在尝试删除代码中符合指定条件的行。我也得到语法错误。我直接在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) =
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=“”