数组以循环遍历单元格值Excel VBA

Question

I have defined cells inside of two separate arrays. (ie source_arr = ("B4","B5"...) and target_arr = ("B5","B6")

I want to loop through both arrays and set the value of the target workbook cells equal to that of the source workbook cells. Right now it sets all the cells equal to one value.

 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

Answer 1

You only need to one loop. And you want Range not Cells:

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