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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

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

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

: フォント名（Name,ThemeFont,StandardFont）

フォント名を取得・設定する（Name プロパティ） Name プロパティは、オブ …

: XlThemeColor 列挙型

XlThemeColor 列挙定数値内容 xlThemeColorDark …

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

: メッセージボックスを表示（MsgBox関数）

MsgBox関数【書式】 result = MsgBox ( Prompt [ …

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

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

: 文字に下線を設定する（Underline プロパティ）

下線を設定（Underline プロパティ） Underline プロパティは、 …

: Split 関数（文字列型の一次配列を作成）

Split 関数の使い方【書式】 myArray = Split ( expr …

: 日付時刻：経過時間を取得（ Timer 関数）

Timer 関数の使い方【書式】 result = Timer () 【戻り値 …

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