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

我有一个excel代码，看起来范围A1：A100 …它遍历这些范围，但是当它循环，我想selectcol B的值…例如，当范围循环开始时，它会先看看A1，但在VBA中，我希望它selectB1中的值来使用…

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