Excel　VBA　配列がわからない人集合　その６　UBound LBound

UBound LBoundつにいて

こんにちは。伊川(@naonaoke)です。

今回は、動的配列の説明の続きになります。

配列には、必ず番号が振られています。

しかし、配列に番号があっても、配列の番号がわからないときの紹介です。

問題提起

解決策

回答

・UBound LBoundを使うと解決します。

動的配列の最小値、最大値を調べる

動的配列は、配列の最小値、最大値がわからないときがあります。

UBound LBound　作成手順その1　データベース確認

上のデータベースを使います。

今回は、一目瞭然でわかりますけど、UBound LBoundを使ってコードを記載します。

UBound LBound　作成手順その2　コードを仕込む

Option Explicit
Option Base 1
Sub ReDimSample()
    Dim TOKIO() As String
    
    Dim r As Long, i As Long

   
    r = Range("A1").End(xlDown).Row

    ReDim TOKIO(r)
    
    For i = LBound(TOKIO) To UBound(TOKIO)
        TOKIO(i) = Cells(i, 1).Value
    Next
        
       For i = LBound(TOKIO) To UBound(TOKIO)
        Worksheets(2).Cells(i, 1) = TOKIO(i)
    Next
End Sub

ここがポイント

ここがポイント

わざわざ、こんな面倒なことをしなくてもと思う人もいるかもしれません。しかし、配列を勉強するには、必要な知識です。

まとめ

今回のまとめ

配列の勉強は難しいと思いながらも、一生懸命勉強している柄久 瀬瑠子(エク　セルコ)なのでした。。

今回のサンプルファイルは、No103です。

毎日の業務が、3時間短縮できます

わからない事を延々と考えるのは、無駄です。

• なんで作動かないの？
• もうやだ！VBAなんか嫌い！
• ネットで調べても情報がない！

必ず作動するコードが、ここにあります。

サンプルファイルの概要、個別コンサルの概要にについて

Related posts:

Excel　配列　動的配列 【Excel　VBA】Split関数で格納した値をセルに表示させる 配列がわからない人　集合　その７　配列の要素を追加する Excel　For Each構文でで探す