
excel自动查找相同的号码,并填入对应号码旁边的数值
例如A2是22,Y1也是22,Y2就得出A2后面的数是7,怎样做成公式下啦自动生成,如果A2和Y2不相同下拉就是空白的。...
例如A2是22,Y1也是22,Y2就得出A2后面的数是7,怎样做成公式下啦自动生成,如果A2和Y2不相同下拉就是空白的。
展开
5个回答
展开全部
Sub ruqi()
Dim count As Integer
count = 2
Set xl = ActiveSheet
Dim i As Integer
Dim j As Integer
j = 3
While xl.Cells(count, 1) <> ""
While xl.Cells(1, j) <> ""
If xl.Cells(1, j) = xl.Cells(count, 1) Then
For i = 2 To 2000 '改为你的行数
If xl.Cells(i, j) <> "" Then
xl.Cells(count, 2) = xl.Cells(i, j)
GoTo 1
End If
Next
End If
j = j + 1
Wend
1
count = count + 1
Wend
End Sub
Dim count As Integer
count = 2
Set xl = ActiveSheet
Dim i As Integer
Dim j As Integer
j = 3
While xl.Cells(count, 1) <> ""
While xl.Cells(1, j) <> ""
If xl.Cells(1, j) = xl.Cells(count, 1) Then
For i = 2 To 2000 '改为你的行数
If xl.Cells(i, j) <> "" Then
xl.Cells(count, 2) = xl.Cells(i, j)
GoTo 1
End If
Next
End If
j = j + 1
Wend
1
count = count + 1
Wend
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在b2输入:
=INDEX(C2:AD2,1,MATCH(A2,$C$1:$AD$1))
下拉
=INDEX(C2:AD2,1,MATCH(A2,$C$1:$AD$1))
下拉
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=vlookup(c$1,$a:$b,2,false)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询