トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 4-1　リストにセル範囲を設定する

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sheet1!A1:A7"
End Sub

Private Sub UserForm_Initialize()
    Dim strAddress As String
    Dim r As Range
    strAddress = "Sheet1" '対象シート名
    With Worksheets(strAddress) 'A列のデータ範囲を取得
        Set r = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With
    strAddress = strAddress & "!" & r.Address(False, False)
    ComboBox1.RowSource = strAddress
    Set r = Nothing
End Sub