Question

我有一张共享的Excel工作表，一直输入记录。我想找到特定名称的最后一个连续条目（在此示例中为＆＃39; A＆＃39;）并在最后一次出现的开始和结束时记录该值。

附加的Excel的输出应为

A，2,34 ---当我打开时有5个条目
A，5，null ---当我打开时有9个条目
A，9,6 ---当我打开时有11个条目
A，9,3 ---当我打开时有12个条目

请帮我解决一下我可以在同一个excel的不同标签中使用的公式。

由于

Answer 1

这应该有效。

C列中的

使用此公式。从第2行开始工作。 row1应该是无关的（此时没有连续的条目）。

= IF（B1 = B2，B2＆安培; “ ”＆安培; A1＆安培;“， ”＆安培; A2，“”）

您还可以使用公式显示该值的最后一个条目。这是值“A”。

= LOOKUP（2,1 /（B：B = E1），C：C）

Answer 2

UDF应该能够处理相对循环。

Option Explicit

Function LastConColVals(rng As Range, crit As String, _
                        Optional delim As String = ",")
    Dim tmp As Variant, r As Long, rr As Long

    'allow full column references
    Set rng = Intersect(rng, rng.Parent.UsedRange)

    With rng
        tmp = Array(crit, vbNullString, vbNullString)
        For r = .Rows.Count To 1 Step -1
            If .Cells(r, 2).Value = crit Then
                tmp(2) = .Cells(r, 1).Value
                For rr = r To 1 Step -1
                    If .Cells(rr, 2).Value = crit Then
                        tmp(1) = .Cells(rr, 1).Value
                    Else
                        Exit For
                    End If
                Next rr
                'option 1 - null last value for singles
                If rr = (r - 1) Then tmp(2) = "null"
                'option 2 - truncate off last value for singles
                'If rr = (r - 1) Then ReDim Preserve tmp(UBound(tmp) - 1)
                Exit For
            End If
        Next r
    End With

    LastConColVals = Join(tmp, delim)
End Function

Excel：如何查找最后连续的列值？

2 个答案: