如何使用for循环在vba中编写2列和1行的代码

Question

我正在寻找循环2列和一行的代码。 i- row，j和r - 列

这里有2个表，其中7列从13到20和237到244。

基于2表中的值，我想在第一个表中选择单元格。 我想首先选择Cells(i, j).Select并检查值Cells(i, r).Value并粘贴或评论Cells(i, j)

For i = 2 to Cells(Rows.Count, "c").End(xlUp).Row
For j = 13 To 27
For r = 237 To 244

让我知道解决这个问题。提前谢谢。

Answer 1

查看您的问题，您似乎需要回答"How to refer adjacent cells?"

为此，您可以在excel vba中使用Offset（）属性。

它的工作方式如下： 假设您指的是行号。 1（即i = 1）和列j。 现在你要引用同一行但是列r;你可以使用：

Range("Your_Range").Offset(0, 7).Select

Answer 2

我自己找到了逻辑，感谢所有人对此进行调查。 这是逻辑：

r = 237
For i = 10 To Cells(Rows.Count, "c").End(xlUp).Row
For j = 13 To 20
If Cells(i, r).Value = "A" Then
Cells(i, j).Select
r = r + 1
Next j
r = 237
Next i