[求助]如何显示某一区域中所有符合条件的所有数据

madis

求助:

呵呵,好不容易找个高手云集的地方

比如:有一个A表内容如下:

A      B        C

1      XX      AA

1      BB     RR

2     CC     RR

3     DD     FF

1     EE     GG

在另一单元格显示A列所有等于1,B列的内容

例如:   显示   XX   BB   EE

可能的话显示   XX AA , BB RR ,EE GG

谢谢大家了(VBA也可以,请详细说说)

展翅

公式是没有的，操作上可以做到，过程有点啰嗦

其中在输入=B13:C15后，按F9产生字符串。然后用替换。

展翅

VBA不在行，班门弄斧一下：

Sub aaa()
Dim a As String
Dim i As Integer
    For i = 1 To 10
        If Cells(i, 1).Value = 1 Then
        a = a & Cells(i, 2) & " " & Cells(i, 3) & ","
        End If
    Next i
    Cells(1, 4).Value = a
End Sub

最后还多了一个逗号。[em03]