在Excel中，可以使用循环结构（如for循环、while循环等）来循环获取每一个数据直到为空。下面是一个示例代码，演示如何使用VBA编写这样的循环：
```vba
Sub LoopUntilEmpty()
Dim rng As Range
Dim data As Variant
Dim i As Integer
'设置数据范围（假设数据位于A列）
Set rng = Range("A1:A10")
'循环遍历每一个单元格，直到遇到空值
For i = 1 To rng.Rows.Count
data = rng.Cells(i).Value
If IsEmpty(data) Then
'如果单元格为空，则退出循环
Exit For
End If
'处理当前数据
MsgBox "当前数据是：" & data
Next i
End Sub
```
在上述示例代码中，我们首先定义了一个数据范围rng（例如A1:A10），然后使用for循环遍历这个范围内的每一个单元格。在循环中，我们通过`rng.Cells(i).Value`获取当前单元格的数值，并通过`IsEmpty`函数判断该数值是否为空。如果为空，则使用`Exit For`语句退出循环；否则，我们可以在循环内部进行相应的处理，例如使用`MsgBox`显示当前数据。通过这种方式，就可以循环获取每一个数据直到为空。
