循环遍历VBA中的列

我想循环遍历文件excel中的列而不是列A，但是我没有成功。 你可以帮我吗 ？
它是im堵塞的7行（Filepath）。 如果我改变了A列icol它不起作用。

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