vba - Excel で系列の最後の値を取得する

Question

次のようなExcelシートがあります。

A | B
-----
0 | 2
0 | 3
0 | 4
0 | 5
0 | 6
0 | 7
1 | 8
1 | 9
1 | 10
1 | 11
1 | 12
2 | 13
2 | 14

...

A の各値が最後に出現したときの B の値を取得するにはどうすればよいですか?

出力は -

C | D
0 | 7
1 | 12
2 | 14

これを行う簡単な方法はありますか？ありがとう！

Answer 1

列 A の最後の値を取得するには、次の式を使用します。

=INDEX(A:A, COUNTA(A:A), 1)

以下は、列 B の最後の値を取得します。

=INDEX(B:B, COUNTA(B:B), 1)

Answer 2

マクロを使用したサンプル:

Sub LastValueInB()

VarA = Range("A1").Value
VarB = Range("B1").Value
Output = ""

For i = 1 To 10

    If Range("A" & i).Value = VarA Then
        VarB = Range("B" & i).Value
    Else
        Output = Output + VarA & VarB & vbCrLf
        VarA = Range("A" & i).Value
    End If

Next i

MsgBox Output

End Sub