更改vba，从一对一工作簿改为五对一个工作簿

chien.17

老师们好，下面是一对一工作簿带入的例子，怎么改才可以工作簿1-5个工作簿对应到一个工作簿，并单元格在工作簿里cell 由1-10，11-20，21-30， 31-40，41-50 ， abcd列不变



Sub Read_External_Workbook()

   
     Dim Target_Workbook As Workbook
     Dim Source_Workbook As Workbook
     Dim Target_Path As String
     
     
     
   
   
     Target_Path = "D:\Sample - 1.xlsm"
     Set Target_Workbook = Workbooks.Open(Target_Path)
     Set Source_Workbook = ThisWorkbook
     

     For i = 1 To 10
         For k = 1 To 4
     Target_Data = Target_Workbook.Sheets(1).Cells(i, k).Interior.ColorIndex
     Source_Workbook.Sheets(1).Cells(i, k).Interior.ColorIndex = Target_Data
     
   
     Source_data = Source_Workbook.Sheets(1).Cells(i, k).Interior.ColorIndex
     Target_Workbook.Sheets(1).Cells(i, k).Interior.ColorIndex = Source_data
     
         Next k
     Next i
     
   
     Source_Workbook.Save
     Target_Workbook.Save
     Target_Workbook.Close False
     

     MsgBox "Task Completed"
     
End Sub

chien.17

请看附件，解压后把sample文件移到硬盘D:\，谢谢