我正在尝试编写将循环遍历表中一系列非连续行的内容，并更改每行中的列数据......例如，ClearContents。范围将是动态的，并且我要循环遍历的行都将是“选定的”。
我尝试了以下操作，但在第一行之后就停止了。我很确定问题是下一行与第一行不连续：
For Each b In a.Rows
mainTasks.DataBodyRange(Range("mainTasks[Status]").Column).ClearContents
Next b
然后我有了一个好主意，写一些只适用于“选定”列单元格的东西。我尝试使用If ... .Value = Selected，但没有成功。
我是否正在尝试做 Excel 2016 VBA 无法做的事情？也就是说，循环遍历一个范围内的非连续行？我一直在研究并尝试了其他一些不起作用的方法。你能告诉我我是不是走错了兔子洞吗？
【问题讨论】：
您的循环中没有任何变量。
它只会在循环中重复清除一列。您需要以某种方式在循环中引用 b 以在每个循环中获得不同的结果。
【讨论】：
出于测试目的，我试图简化您在 cmets 中的代码，但以下代码应该会有所帮助，
Dim x As Integer
Dim myrange As Range
For x = 1 To 30
If (mainTasks.Cells(x, 2) = "completed" Or mainTasks.Cells(x, 2) = "Dismissed") And mainTasks.Cells(x, 3) <> "" Then
If myrange Is Nothing Then
Set myrange = mainTasks.Cells(x, 2)
Else
Set myrange = Union(myrange, mainTasks.Cells(x, 2))
End If
End If
Next x
myrange.ClearContents
我试过了，按照我的设置方式，它工作正常。希望对您有所帮助！
您还必须添加代码来复制数据，鉴于这是您最初的问题，我正在清除其中的内容
【讨论】：
这也有效（我认为）
Dim selectedRange As Range
Set selectedRange = Application.Selection
For Each Row In selectedRange.Rows
Debug.Print Row.Address
Next Row
【讨论】：