为什么报错? 怎么改呀?

tsinge 2003-11-23 08:49:25
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

...全文
38 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
蜗牛爬珠峰 2003-11-23
  • 打赏
  • 举报
回复
后面的判断相等怎么是赋值了?
hailongchang 2003-11-23
  • 打赏
  • 举报
回复
第一:将==改为=
如果调试不通
第二:将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
xsmile 2003-11-23
  • 打赏
  • 举报
回复
==
在这里好象用=就行了吧?

6,213

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧