求助！！1求助 求大神帮忙看一下表格~谢谢！！！

istory13

查找并显示问题~请看附件 拜托了~~~谢谢！！！

chi12580011

以A1:A48想找出红色的数据并显示在a50,a51,a52的单元格里，问题没表述清楚

chi12580011

你是要以A1:A48这列数据为条件，还是以这列数据为例子

superperson

Sub test()
Dim i As Integer, j As Integer, k As Integer, s As Integer
s = 50
With ActiveSheet
k = .Cells(1, Columns.Count).End(xlToLeft).Column
Debug.Print k
For j = 1 To k Step 1
    For i = 1 To 48 Step 1
        If .Cells(i, j).Interior.ColorIndex = 3 Then
            .Cells(s, j) = Cells(i, j).Value
            s = s + 1
        End If
    Next i
s = 50
Next j
End With
End Sub

superperson

Sub test()
Dim i As Integer, j As Integer, k As Integer, s As Integer
s = 50
With ActiveSheet
k = .Cells(1, Columns.Count).End(xlToLeft).Column
Debug.Print k
For j = 1 To k Step 1
    For i = 1 To 48 Step 1
        If .Cells(i, j).Interior.ColorIndex = 3 Then
            .Cells(s, j) = Cells(i, j).Value
            s = s + 1
        End If
    Next i
s = 50
Next j
End With
End Sub

istory13

我是以A1:A48这列数据为条件

chi12580011

还有显示在三个单元格里面，怎么显示也要说清楚，是只显示最后一个结果，还是所有红色都要显示，这三个单元格显示的东西是哪

chi12580011

这三个单元格分别要显示的是哪个范围内查出来的

istory13

我要所有红色的都显示 一个组3个要是有3个红色的就9个单元格里显示 谢谢🙏

istory13

所有红色都要显示