请教下，怎么把左侧黄色数值复制到I5连续成一列？

按我的理解，我觉得你是要把黄色的单元格提取出来，默认数据从a1单元格开始，c列输出结果

Sub 问题()
Dim dic, a, arr
arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).row)
Set dic = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr, 1), 1 To 1)
b = 1
For a = 1 To Cells(Rows.Count, 1).End(xlUp).row
If Cells(a, 1).Interior.Color = RGB(255, 255, 0) Then
brr(b, 1) = arr(a, 1)
b = b + 1
End If
Next
[c1].Resize(UBound(brr, 1), 1) = brr
Range("c1:c" & Cells(Rows.Count, 3).End(xlUp).row).Interior.Color = RGB(255, 255, 0)
End Sub

在B列加一列序号的辅助列，直接1234这样排下去即可。然后按颜色排序，排序原则1.颜色，2B列从小到大