VBAのループスルー列

Question

ファイルのループスルーしたい列をA列の代わりにExcelにしたいが、それは成功しなかった。手伝って頂けますか ？
私はブロックされている7行（ファイルパス）です。私がicolの列Aを変更した場合、それは機能しません。列をループし

Set workboo = Workbooks.OpeN("C:\Users\Desktop\list_files.xlsx") 

Set worksh = workboo.Worksheets("List_File") 

For j = 1 To 10 
    icol = 2 * j - 1 
    numRows = worksh.Cells(Application.Rows.Count, icol).End(xlUp).Row   
    For i = 2 To numRows 
      Filepath = worksh.Range("A" & i).Value 'i changed column A for icol but it doesn t work 
      fso.CopyFile Filepath, Destination, True 
     Next 

Answer 1

、Cellsを使用する方が簡単でしょう：

---

Filepath = worksh.Cells(i, icol).Value 

そして、これは：

numRows = worksh.Cells(Application.Rows.Count, icol).End(xlUp).Row 

があるべき

numRows = worksh.Cells(worksh.Rows.Count, icol).End(xlUp).Row