通过单元格值循环的数组Excel VBA

时间:2017-10-13 14:45:22

标签: arrays excel vba excel-vba

我在两个独立的数组中定义了单元格。 (即source_arr = ("B4","B5"...)target_arr = ("B5","B6")

我想遍历两个数组并将目标工作簿单元格的值设置为等于源工作簿单元格的值。现在它将所有单元格设置为等于一个值。

 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

1 个答案:

答案 0 :(得分:2)

你只需要一个循环。你想要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