セル値をループする配列Excel VBA

Question

2つの別々の配列の内部にセルを定義しました。私は両方の配列をループしたいと元のブックのセルと同等のターゲットワークブック細胞の値を設定します。今、それは一つの値に等しいすべてのセルを設定します。

For i = LBound(source_array) To UBound(source_array) 
For j = LBound(target_array) To UBound(target_array) 
Data = source_workbook.Sheets("Questionnaire").Cells(source_array(i)).Value 
target_workbook.Sheets("Questionnaire").Cells(target_array(j)).Value = Data 
Next j 
Next i 

（すなわち source_arr = ("B4","B5"...)と target_arr = ("B5","B6")

Answer 1

は1つのだけループする必要があり、あなたは、その範囲たくない細胞：。

For i = LBound(source_array) To UBound(source_array) 
    Data = source_workbook.Sheets("Questionnaire").Range(source_array(i)).Value 
    target_workbook.Sheets("Questionnaire").Range(target_array(i)).Value = Data 
Next i