如何使用for循环为vba中的两列一行编写代码

如何使用for循环为vba中的两列一行编写代码,vba,excel,Vba,Excel,我正在寻找代码循环通过2列和一行。 i-行、j和r-列 这里有两个表,7列从13到20,237到244 根据表2中的值,我想选择第一个表中的单元格。 我想首先选择单元格(I,j)。选择并检查值单元格(I,r)。值并粘贴或注释单元格(I,j) 让我知道如何解决这个问题。提前谢谢。看看您的问题,您似乎需要回答“如何引用相邻单元格?” 为此,可以在excel vba中使用Offset()属性 它的工作原理如下: 假设您指的是第1行(即i=1)和第j列。 现在您希望引用相同的行,但列r;您可以使用: R

我正在寻找代码循环通过2列和一行。 i-行、j和r-列

这里有两个表,7列从13到20,237到244

根据表2中的值,我想选择第一个表中的单元格。 我想首先选择
单元格(I,j)。选择
并检查值
单元格(I,r)。值
并粘贴或注释
单元格(I,j)


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

看看您的问题,您似乎需要回答
“如何引用相邻单元格?”

为此,可以在excel vba中使用Offset()属性

它的工作原理如下: 假设您指的是第1行(即i=1)和第j列。 现在您希望引用相同的行,但列r;您可以使用:

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

我自己找到了逻辑,谢谢大家的关注。 逻辑如下:

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

谢谢@Avidan,我在每个表中有7列。我想为每一行遍历这两个表的所有7列。如果只有一列,我会使用偏移量。
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