在C2格输入=IF(C$1=$A2,$B2,"")回车确定后
先选中C2格然后鼠标移到单元格右下角鼠标变成黑十字箭头，向右拉
然后选中C2到你需要的格子比如我这里只能看到 AD27这一行后再向下拉复制公式追问
先选中C2格然后鼠标移到单元格右下角鼠标变成黑十字箭头，向右拉
然后选中C2到你需要的格子比如我这里只能看到 AD27这一行后再向下拉复制公式追问
大哥不行啊，输入你给的公式不显示结果啊
表传上来我帮你弄
是不是第一行的格式是文本，而第A列的是数字
如图 随便做的测试结果
我知道啦，应该是我第一行弄成文本格式啦，那不弄成文本格式00那就变成0啦这个怎么解决啊
追答不要用文本 用自定义格式 然后 在类型后面的空行里 输入 00 回车
温馨提示：内容为网友见解，仅供参考
第1个回答 2014-05-15
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
第2个回答 2014-05-15
亲，在C2输入公式：=IF(C$1<>$A2,IFERROR(LOOKUP(C$1,$A:$A,$B:$B),""),"")，右拉，下拉
另外，亲似乎忘了交代一个条件：那就是行列如果相等，也要保持空白。我已经帮您考虑了哦。追问
另外，亲似乎忘了交代一个条件：那就是行列如果相等，也要保持空白。我已经帮您考虑了哦。追问
大哥你给的公式输入进去不是我想要的结果啊，Y2应该等于7才是我想要的结果啊，其余的第二行应该全部是空白的才对啊
第3个回答 2014-05-15
在b2输入：
=INDEX(C2:AD2,1,MATCH(A2,$C$1:$AD$1))
下拉
=INDEX(C2:AD2,1,MATCH(A2,$C$1:$AD$1))
下拉
第4个回答 2014-05-15
=vlookup（c$1，$a:$b，2，false）
