显示特定数字出现的日期（列标题）

Question

我做了几天的研究，试图自己解决这个问题。我有一个我创建的电子表格，它将跟踪已完成的项目及其完成日期。

问题在于：我正在研究大约400辆公共汽车。我需要跟踪维修完成的时间。包含的图像将显示到目前为止的表格。底部的数字（101,102,103等）将作为总线号码。然后我需要把完成的公共汽车在另一张纸上跟踪它们的完工日期。

基本上，无论公交101发生在哪里，我都希望列顶部的日期自动填写另一个Excel标签。

Daily Bus Checklist

Answer 1

用于计算前5行，一旦得到它的要点，可以在接下来的5行重复。

=IFERROR(INDEX(Summary!2:2,MATCH(B1,Summary!12:12,0)),IFERROR(INDEX(Summary!2:2,MATCH(B1,Summary!13:13,0)),IFERROR(INDEX(Summary!2:2,MATCH(B1,Summary!14:14,0)),IFERROR(INDEX(Summary!2:2,MATCH(B1,Summary!15:15,0)),IFERROR(INDEX(Summary!2:2,MATCH(B1,Summary!16:16,0)),"")))))

我水平完成数据，因为您的主要标签是这样排列的，如果您需要，很乐意调整。

Answer 2

假设总线101始终位于第12行，从您的工作表看起来如何，但如果它将分布在5行，则可以进行修改：

Sub test()
Dim ws As Worksheet
Dim i As Long, lastColumn As Long, vNumber As Integer, o As Long
Dim vDate() As Double

Set ws = ActiveSheet
With ws
    lastColumn = .Cells(2, 255).End(xlToLeft).Column
    vNumber = Application.WorksheetFunction.CountIf(.Range(.Cells(12, 5), .Cells(12, lastColumn)), 101)
    ReDim vDate(1 To vNumber)
    o = 1
    For i = 5 To lastColumn
        If .Cells(12, i) = 101 Then
            vDate(o) = .Cells(2, i).Value
            o = o + 1
        End If
    Next i
End With

End Sub

有了这个你有一个日期的数组..我不确定你是否需要帮助在表格上得到它...等等...