lastRow = Cells(Rows.Count, 1).End(xlUp).Row
lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lastRow
For j = 1 To lastColumn
'读取单元格值
Debug.Print Cells(i, j).Value
Next j
Next i
End Sub
在此示例中，我们使用了两个嵌套的For循环，一个用于行，一个用于列。通过指定循环的开始和结束位置，我们可以遍历整个表格并读取每个单元格的值。
Do While循环读取单元格：
Sub LoopThroughCells()
Dim i As Integer
Dim j As Integer
Dim lastRow As Integer
Dim lastColumn As Integer
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
i = 1
Do While i <= lastRow
j = 1
Do While j <= lastColumn
'读取单元格值
Debug.Print Cells(i, j).Value
j = j + 1
i = i + 1
End Sub
在此示例中，我们使用了两个嵌套的Do While循环，一个用于行，一个用于列。通过在循环体内递增变量的值，我们可以遍历整个表格并读取每个单元格的值。
无论是使用For循环还是Do While循环，都需要知道表格的最后一行和最后一列。在上面的代码示例中，我们使用了Cells(Rows.Count, 1).End(xlUp).Row和Cells(1, Columns.Count).End(xlToLeft).Column来获取这些信息。
希望这些代码示例对您有所帮助！
