循环遍历范围但使用nxt col作为值

Question

我有一个excel代码,它查看范围A1:A100 ...它循环遍历这些范围,但是当它循环时,我想选择col B中的值...例如,当范围循环开始时,它将会首先看一下A1,但在VBA中,我希望它选择B1中的值来使用......

Sub DRAWb()
'
' DRAWb Macro
'

'
Dim rng As Range, cell As Range

Set rng = Sheet1.Range("A1:A3")

For Each cell In rng


If cell.Value > 1 Then


    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 11.25, 50 * cell, 93.75, 43.5) _
        .Name = "R cell"
End If
Next cell

End Sub

Answer 1

使用.Offset方法,该方法"返回表示偏离指定范围的范围的Range对象".

If cell.Offset(0, 1).Value > 1 Then

以上将评估下一栏.

文档:

http://msdn.microsoft.com/en-us/library/office/ff840060%28v=office.15%29.aspx