2017-10-13 138 views
0

我已經在兩個單獨的數組內部定義了單元格。 (即source_arr = ("B4","B5"...)target_arr = ("B5","B6")要通過單元格值循環的數組Excel VBA

欲通過兩個陣列環路和設置目標工作簿細胞等於源工作簿的細胞的值。現在它設置所有等於一個值的單元格。

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

你可能根本不會被需要兩個數組,你可以發佈你的數據的截圖 – Mahesh

+0

也許像'target_arr =陣列(? 「B5」,「B6」)' – Jeeped

+0

如果數組是同構的,則只需要一個循環。 –

回答

2

你只需要一個循環,你想無此範圍細胞:

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 
+0

只要我發佈問題,我確實設法修復了Range部分... * roll eyes *但是由於某種原因,我想我需要2個循環!這樣的bozo,我一直在想它。感謝它的完美幫助。 – Mdurocher