Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

Join 関数（配列の要素を結合）

2017/10/30

Join 関数

1次元配列の各要素を指定した区切り文字で連結します。

【書式】

myString = Join ( SourceArray [, Delimiter ] )

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
SourceArray ・・・結合したい文字列を含む1次元配列を指定します。
Delimiter ・・・上記配列の値（文字列）を結合する部分に使用する文字列を指定します。省略した場合は、””（空白文字）が使用されます。
myString ・・・引数 SourceArray に指定した配列の各値（文字列）を引数 Delimiter で指定した文字列で連結します。

文字列を指定した区切り文字で分割し、1次元配列を作成するには、Split 関数を使用します。

引数 SourceArray に、文字列型（String）の配列、バリアント型（Variant）の配列以外の配列を指定するとエラーが発生します。

Split 関数使用例

サンプルVBAソース

　
Sub Sample_join()

    Dim myArr(3) As String
    Dim myString As String
    
    myArr(0) = "あいうえお"
    myArr(1) = "12345"
    myArr(2) = "ABCDE"
    myArr(3) = "アイウエオ"
    
    myString = Join(myArr, vbCrLf)
    
    MsgBox myString

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

　

Sub Sample_join()

Dim myArr(3) As String

Dim myString As String

myArr(0) = "あいうえお"

myArr(1) = "12345"

myArr(2) = "ABCDE"

myArr(3) = "アイウエオ"

myString = Join(myArr, vbCrLf)

MsgBox myString

End Sub

　

実行結果

- VBA基本 excel vba, join 関数, Option Base ステートメント, Option Compare ステートメント, VBA基本, エクセル VBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: 日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数）

DateSerial 関数（数値を使って日付データを取得）【書式】 date …

: 取り消し線を設定する（Strikethrough プロパティ)

取り消し線を設定する（Strikethrough プロパティ) Striketh …

: Array 関数（バリアント型の配列を作成）

Array 関数の使い方【書式】 myArray = Array ( elem …

: 文字列：文字列左から指定文字数取得（Left 関数,LeftB 関数）

Left 関数・LeftB 関数の使い方【書式】 result_left = …

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

CentimetersToPoints メソッドセンチメートル単位の値をポイン …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: 変数が日付型かどうかをチェックする（ IsDate 関数）

IsDate 関数の使い方【書式】 result = IsDate( expr …

PREV: テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）
NEXT: セルのデータを区切り文字で複数のセルに分割する（TextToColumns メソッド）