UDF

2016-07-28 5 views
1

2つの1Dアレイ従うようにそれらのそれぞれは、3つの要素が含まれているが存在すると仮定UDF

A 1 
2 3 
B C 
つの要素を持つ単一配列に二つの配列を連結どのよう

A1 
23 
BC 

&またはCONCATENATE関数を使用してシート操作で行うのは簡単ですが、配列でこれを行うにはどうすればいいですか?配列による

答えて

1

反復処理し、第三にそれらを組み合わせて:あなたは関数を作成するために、複数回、それを使用するために必要な場合

Sub foooooo() 
Dim arr1() As Variant 
Dim arr2() As Variant 
Dim outArr() As Variant 
arr1 = Array("A", "2", "B") 
arr2 = Array("1", "3", "C") 

ReDim outArr(UBound(arr1)) 
For i = LBound(arr1) To UBound(arr1) 
    outArr(i) = arr1(i) & arr2(i) 
Next i 

Debug.Print Join(outArr, ",") 

End Sub 
+0

それは有益かもしれません。 '関数concatArrays(arr1()as Variant、arr2()As Variant)Variant' –

+0

@MichaelRusso私はOPにそれをさせていただきます。 OPには自分のコードが含まれていないため、何が欲しいのか、どんなタイプの出力がどこにあるのかを正確に推測することは困難です。だから私はOPがどんな必要も引き出す​​ことができるバックボーンを与えました。 –

+0

私はあなたがしたので、あなたが完全な応答をしなかったことを意味していませんでした。私は別のオプションを与えたいと思っていました。あなたがすでに答えたので、別の答えは必要ありませんでした。 –