excel vba 给按钮的这段代码为什么执行错误？
PrivateSubCommandButton1_Click()Dimi,mAsByteFori=4To254Form=1To254IfSheet1.Range("B",...
Private Sub CommandButton1_Click()
Dim i, m As Byte
For i = 4 To 254
For m = 1 To 254
If Sheet1.Range("B", i).Text = Sheet2.Range("B", m).Text Then
Sheet1.Range("C", i).Value = Sheet2.Range("O", m)
End If
Next m
Next i
End Sub 展开
Dim i, m As Byte
For i = 4 To 254
For m = 1 To 254
If Sheet1.Range("B", i).Text = Sheet2.Range("B", m).Text Then
Sheet1.Range("C", i).Value = Sheet2.Range("O", m)
End If
Next m
Next i
End Sub 展开
2个回答
展开全部
提示什么错误？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
不知道你想做什么的，但你
Range("B", i)这个的写法应该是错误的
改成以下这样在看看
If Sheet1.Range("B" & i).Text = Sheet2.Range("B" & m).Text Then
Sheet1.Range("C" & i).Value = Sheet2.Range("O" & m)
End If
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
