还记得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

如您从本文得到了有价值的信息或帮助,请考虑扫描文末的二维码对我进行赞赏和鼓励。

与《Excel VBA 宏 常用代码段之读其他文件 读其他Sheets》相关的博文:


留言

Admin Avatar
😀
😀😁😂😅😭🤭😋😘🤔😰😱🤪💪👍👎🤝🌹👌