请用VBA代码解决，有A、B两列，求B列数据在A列中第一个相同数据的行号并填入C列对应B列的行中。
答案:2 悬赏:60 手机版
解决时间 2021-03-21 12:11
- 提问者网友：火车头
- 2021-03-20 13:10
请用VBA代码解决，有A、B两列，求B列数据在A列中第一个相同数据的行号并填入C列对应B列的行中。
最佳答案
- 五星知识达人网友：不甚了了
- 2021-03-20 13:55
Sub 查找()
Dim I, J, rA, rB As Long
rA = Cells(65536, 1).End(xlUp).Row
rB = Cells(65536, 2).End(xlUp).Row
For I = 1 To rB
For J = 1 To rA
If Cells(I, 2) = Cells(J, 1) Then
Cells(I, 3) = J
J = rA
End If
Next J
Next I
End Sub
Dim I, J, rA, rB As Long
rA = Cells(65536, 1).End(xlUp).Row
rB = Cells(65536, 2).End(xlUp).Row
For I = 1 To rB
For J = 1 To rA
If Cells(I, 2) = Cells(J, 1) Then
Cells(I, 3) = J
J = rA
End If
Next J
Next I
End Sub
全部回答
- 1楼网友：青灯有味
- 2021-03-20 14:30
for i = 1 to rb
for j = 1 to ra
if cells(i, 2) = cells(j, 1) then
cells(i, 3) = j
j = ra
exit for '找到后就退出j循环，不需要完成整个循环，继续下一个i。加上这句最简单。
end if
next j
next i
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯