为什么报错？ 怎么改呀？

[tsinge]

Sub mapinfo()



'如果sheet1中某两个个单元格中的值 分别等于 sheet2中某两个值 则 进行 赋值

'为什么报错？ 怎么改呀？



For n = 2 To 230

For m = 2 To 523



If Worksheets("Sheet1").Cell(n, 6).Value == Worksheets("Sheet2").Cell(m, 1).Value && Worksheets("Sheet1").Cell(n, 7).Value = Worksheets("Sheet2").Cell(m, 2).Value Then

Worksheets("Sheet1").Cell(n, 8).Value = Worksheets("Sheet2").Cell(m, 3).Value



End If

Next m

Next n



End Sub

[xsmile]

==
在这里好象用=就行了吧？

[hailongchang]

第一:将==改为=
如果调试不通
第二:将if语句中的"与"操作的两项分别加括号
If (Worksheets("Sheet1").Cell(n, 6).Value =Worksheets("Sheet2").Cell(m, 1).Value )&& (Worksheets("Sheet1").Cell(n, 7).Value = Worksheets("Sheet2").Cell(m, 2).Value) Then

[蜗牛爬珠峰]

后面的判断相等怎么是赋值了？