我在两个独立的数组中定义了单元格。 (即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
答案 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