2

对于工作表的每一行，我都在尝试浏览单元格。当我遇到一个空的牢房时，我会停下来。然后我想去下一行。

为了做到这一点，我使用了一个带有“IsEmpty”条件的“Do until”循环。这个“Do until”循环位于“For each”循环中。“For each”循环用于在第一列中从一个范围转到另一个范围。从 A1 到 A2，再到 A3 等。

我设法成功浏览了第一行。但我无法到达第二排，以及以下几排。我假设“直到”循环退出宏而不让 Excel 读取“下一个 rng”语句......

我的宏退出，活动单元格是第一行的第一个空单元格。（我们现在应该去第二排，而不是停下来）

这是我的代码：

Sub label_clusters()

Dim rng As Range, iCounter As Integer
iCounter = 1

For Each rng In Feuil1.Range("A1:A24")

If ActiveCell.Column = 1 Then
Sheets("Feuil2").Cells(iCounter, 1) = rng.Value
Sheets("Feuil2").Cells(iCounter, 2) = rng.Offset(0, 1).Value
iCounter = iCounter + 1
ActiveCell.Offset(0, 2).Select
End If

Do Until IsEmpty(ActiveCell.Value) = True

If ActiveCell.Column <> 1 Then
Sheets("Feuil2").Cells(iCounter, 1) = rng.Value
Sheets("Feuil2").Cells(iCounter, 2) = ActiveCell.Value
iCounter = iCounter + 1
ActiveCell.Offset(0, 1).Select
End If

Loop

Next rng

End Sub

我显然做错了什么，但是在一次又一次的谷歌搜索之后，我现在缺乏想法。任何 suugestion 都可以 =) 非常感谢您的帮助。

4

1 回答 1

1

问题在于这一行：

If ActiveCell.Column = 1 Then

完成第一行后，ActiveCell是第一个空单元格，并且ActiveCell.Column> 1。因此，对于第一个之后的循环的每次迭代for each，第一个代码块都会被跳过，并且ActiveCell永远不会更新到下一行的第一个单元格。

查看您的代码，这两个if语句似乎都是多余的。if我认为如果您同时删除和end if行，代码将正确执行。

于 2013-03-20T04:59:11.817 回答