请知悉：本文最近一次更新为 8年 前，文中内容可能已经过时。
还记得3月6日总结的遍历指定列的所有行的代码吗？
For hang = 2 To ActiveSheet.UsedRange.Rows.Count '遍历第2行到当前表总行数
A = Cells(hang, lie)
Next
在这个循环里是在当前激活的Sheet下使用的，如何读取其他Sheet？如下即可
For hang = 1 To Sheets("Sheet2").UsedRange.Rows.Count '遍历第2行到当前表总行数
a = Sheets("Sheet2").Cells(hang, 2)
Debug.Print a
Next
如果需要遍历其他表格的数据呢？如下代码即可：
Set objWorkbook = Workbooks.Open("D:test.xlsx")
For hang = 2 To objWorkbook.Worksheets("Sheet1").UsedRange.Rows.Count
Debug.Print objWorkbook.Worksheets("Sheet1").Cells(hang, 1)
Next
objWorkbook.Close
如您从本文得到了有价值的信息或帮助，请考虑扫描文末二维码捐赠和鼓励。
如本文对您有用，捐赠和留言 将是对我最好的支持~（捐赠可转为站内积分）
如愿意，请向朋友推荐本站，谢谢。
尊重他人劳动成果。转载请务必附上原文链接，我将感激不尽。