vba中如何用双循环判断两列单元格的内容是否相等

Question

for i=2 to 5
for j=2 to 5
if cells(i,2)=cells(j,3) then
cells(i,3)= cells(i,2)*cells(j,3)
endif
next
next
他报错说next 没有for

Answer 1

B列和C列对比，不是同行对比，
如果是要同行对比，代码改为如下
for i=2 to 5
if cells(i,2)=cells(i,3) then cells(i,3)=cells(i,2)*cells(i,3)
next i
Sub jing()
For i = 4 To 9
For j = 2 To 5
If Worksheets("sheet2").Cells(i, 6).Value = Worksheets("sheet1").Cells(j, 1).Value Then
Worksheets("sheet2").Cells(i, 7) = Worksheets("sheet2").Cells(i, 4) * Worksheets("sheet1").Cells(j, 6)
End If
Next
Next
End Sub

Answer 2

for i=2 to 5
for j=2 to 5
if cells(i,2)=cells(j,3) then
cells(i,3)= cells(i,2)*cells(j,3)
end if
next
next
你这样是用B列和C列对比，不是同行对比哦，
如果是要同行对比，代码改为如下
for i=2 to 5
if cells(i,2)=cells(i,3) then cells(i,3)=cells(i,2)*cells(i,3)
next i

追问

Sub jing()
For i = 4 To 9
For j = 2 To 5
If Worksheets("sheet2").Cells(i, 6).Value = Worksheets("sheet1").Cells(j, 1).Value Then
Worksheets("sheet2").Cells(i, 7) = Worksheets("sheet2").Cells(i, 4) * Worksheets("sheet1").Cells(j, 6)
End If
Next
Next
End Sub
说是错误13

Answer 3

endif 这里有错，应该是end if

Answer 4

endif 中间加空格

Answer 5

"end if" 写成了"endif"