如何使用VBA在Excel中迭代可變列長度范圍

Question

例如，如果一個工作表中的數據如下所示：

UsedRange.Columns.Count為6，這是所有行的最大列數。 即使我迭代使用

For each row in UsedRange.Rows
       For each cell in row.Cells
           ...
       Next cell
Next row

它仍然每排6個。

Answer 1

如果單元格為空，則退出單元循環。

For Each Row In UsedRange.Rows
   For Each cell In Row.Cells
       If IsEmpty(cell) Then
            Exit For
       End If

       'Do what you want here...

   Next cell
Next Row

Answer 2

UsedRange將返回一個連接范圍。 在你的情況下，一個小測試：

Sub test()
Debug.Print UsedRange.Address
End Sub

打印$A$1:$F$4

因此，在執行代碼之前，最好先檢查單元格中是否有任何值。

看到這個SO線程： 如何檢查單元格是否為空？ 這樣做。