还记得3月6日总结的遍历指定列的所有行的代码吗？

For hang = 2 To ActiveSheet.UsedRange.Rows.Count '遍历第2行到当前表总行数
A = Cells(hang, lie)
Next

在这个循环里是在当前激活的She[……]

阅读全文