ExcelのVBAループと配列から値を取得

Question

私は選択を取得し、それを文字列の配列にする次のコードがあります。

Dim strArgument As Variant 
Dim irange As Range 
Dim ricosString As Variant 

Set irange = Selection 
ricosString = RangeToStringArray(irange) 

Dim vArray As Variant 
For i = LBound(ricosString) To UBound(ricosString) 
    Set vArray = ricosString(i) 

私の問題はricosString(i)です。それはエラーを投げているSubscript out of range.何か考えている理由は？

ここ

がRangeToStringArray

Public Function RangeToStringArray(theRange As Excel.Range) As String() 

Dim variantValues As Variant 
variantValues = theRange.Value 

Dim stringValues() As String 
ReDim stringValues(1 To UBound(variantValues, 1), 1 To UBound(variantValues, 2)) 

Dim columnCounter As Long, rowCounter As Long 
For rowCounter = UBound(variantValues, 1) To 1 Step -1 
    For columnCounter = UBound(variantValues, 2) To 1 Step -1 
     stringValues(rowCounter, columnCounter) = CStr(variantValues(rowCounter, columnCounter)) 
    Next columnCounter 
Next rowCounter 

RangeToStringArray = stringValues 

エンド機能

Answer 1

RangeToStringArrayは2次元であるが、1次元 設定VARRAY = ricosString（I）

はまたRicostringではないとして、あなたがそれを参照するためのコードですオブジェクトを使用しないでください。セット

Answer 2

についてRangeToStringArray functi私は本当に興味を持っていません。ricosString = irangeを使ってみてください。これは簡単で速くなりますか？

Answer 3

適切な文字列配列としてあなたricosStringを定義します。

Dim ricosString() As String 

は、適切なものを使用してRangeToStringArray機能を置き換えます

Public Function RangeToStringArray(theRange As Excel.Range) As String() 

Dim cell As Range 
Dim values() As String 
Dim i As Integer 

i = 0 

ReDim values(theRange.Cells.Count) 

For Each cell In theRange 

    values(i) = cell.Value 
    i = i + 1 
Next cell 

RangeToStringArray = values 
End Function 

次に、あなたがこのような配列の値を参照することができます。

vArray = ricosString(i) 'without Set