버튼, 스프레드 하나 추가한다.. 그리고 아래소스 실행해보면됨!

Private Sub Command1_Click()
    Dim tmp As Variant
    Dim tmp1 As Variant
    Dim i As Integer
    
    For i = 1 To fpSpread1.MaxRows
        fpSpread1.Row = i: fpSpread1.Col = 1
        Call fpSpread1.GetText(1, i, tmp)
        Call fpSpread1.GetText(2, i, tmp1)
        If fpSpread1.IsCellSelected(1, i) = True Then
            MsgBox tmp & "___" & tmp1
        End If
    Next
End Sub


Private Sub Form_Load()
    fpSpread1.MaxCols = 2
    fpSpread1.MaxRows = 10
    fpSpread1.AllowMultiBlocks = True
    Call fpSpread1.SetText(1, 1, 12)
    Call fpSpread1.SetText(1, 2, 132)
    Call fpSpread1.SetText(1, 3, 142)
    Call fpSpread1.SetText(1, 4, 152)
    Call fpSpread1.SetText(1, 5, 126)
    Call fpSpread1.SetText(1, 6, 127)
    Call fpSpread1.SetText(1, 7, 128)
    Call fpSpread1.SetText(1, 8, 129)
    Call fpSpread1.SetText(1, 9, 120)
    Call fpSpread1.SetText(1, 10, 121)
    Call fpSpread1.SetText(2, 1, 122)
    Call fpSpread1.SetText(2, 2, 132)
    Call fpSpread1.SetText(2, 3, 142)
    Call fpSpread1.SetText(2, 4, 152)
    
End Sub