配列がわからない人　集合　その７　配列の要素を追加する

配列の要素を追加

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

前回は、動的配列のUBound LBoundを紹介しました。

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

2020.2.14

UBound LBoundつにいて こんにちは。伊川(@naonaoke)です。 今回は、動的配列の説明の続きになります。 配列には、必ず番号が振られています。 しかし、配列に番号...

今回は、動的配列に要素を加えます。

TOKIOにAKB48の名前について、配列を使って付け加えます。

問題提起

解決策

回答

・Preserveを使って配列要素を変更します。

ReDimステートメント

キーワードPreserveを使うと、すでに配列内に持つデータを失うことなく要素数を変更することができます。

動的配列に要素を追加　作成手順その1　データベース確認

TOKIOの名前にAKB48のデータを追加します。

動的配列に要素を追加　作成手順その1　コード解説

難しいかもしれませんが、コードを音読できれば、それほど、高度ではないと思います。

コードは、必ず標準モジュールに記載してください。

Excel　数式は音読せよ　音読できると理解しています

2020.1.29

数式を音読するとは こんにちは。伊川(@naonaoke)です。 http://keiyu.xyz/2020/01/27/excelsagyou/ VBAの複雑なコードや、複雑な...

Option Explicit
Option Base 1


Sub PreserveSample()
    Dim myName() As String
    
    Dim r As Long, r2 As Long
    Dim i As Long

    Worksheets("TOKIO").Activate
    
    r = Worksheets("TOKIO").Range("A1").End(xlDown).Row

    ReDim myName(r)
    
    For i = 1 To r
        myName(i) = Cells(i, 1).Value
    Next
        

    Worksheets("AKB48").Activate
    
    r2 = Worksheets("AKB48").Range("A1").End(xlDown).Row

    ReDim Preserve myName(r + r2)
    
    For i = r + 1 To r + r2
        myName(i) = Cells(i - r, 1).Value
    Next
    
    For i = LBound(myName) To UBound(myName)
        Worksheets(3).Cells(i, 1) = myName(i)
    Next
    Worksheets(3).Activate
    
End Sub

ここがポイント

ここがポイント

今回のケースを、配列をつかないと、結構面倒なような気がします。配列の動画は、今回が7回目ですが、少しずつ高度な内容になります。しかし、配列は、プログラムの基本です。私と一緒に頑張って、みなさんのスキルにしてください。

まとめ

今回のまとめ

自分で配列を勉強しながら、スキルアップを感じている柄久 瀬瑠子(エク　セルコ)なのでした。。

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

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

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

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

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

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

このブログでも、難しいと感じる方は、下記のファイルをダウンロード

スライドショーで見ていただけると嬉しいです。

Related posts:

Excel　配列　動的配列 Excel配列　二次元配列 Excel　VBA　配列がわからない人集合　その６　UBound LBound Excel　配列　WorkSheet関数で配列を使う　その１　SUM関数編