循环不select单元格

我想循环没有select单元格。 范围B：B将包含我想编号的值的列表： 10等。我对如何完成这个任务有一个想法，但是它还不能工作：

 Dim i as integer i = 1 Do While i < 200 If Range("Bi") <> "" Then Range("Ai")= i*10 end if i = i + 1 Loop End sub 

有没有人知道一个方法来完成这样的事情？

而这样做还是不会有意义呢？

 Dim i as integer Dim a as String Dim b as String Dim c as integer i = 1 Do While i < 200 a = "A"& i b = "B"& i c = i * 10 If Range(b) <>"" Then Range(a) = c End if i = i + 1 Loop End Sub 

Answer 1

如果您不想创build范围地址string，则可以使用“单元格”将数字索引用于行和列。

 Dim i As Integer Dim c As Long i = 1 c = 10 Do While i < 200 Cells(i, 2).Value = c i = i + 1 c = c + 10 Loop 

Answer 2

你几乎在你的第一个片段。 这工作：

 Sub SetNumbers() Dim i As Integer i = 1 Do While i < 200 If Range("B" & i) <> "" Then Range("A" & i) = i * 10 End If i = i + 1 Loop End Sub 

关键是使范围select像这样： Range("A" & i) 。

Answer 3

Anwser

我已经尝试了这似乎工作

 Dim i as integer Dim a as String Dim b as String Dim c as integer i = 1 Do While i < 200 a = "A"& i b = "B"& i c = i * 10 If Range(b) <>"" Then Range(a) = c End if i = i + 1 Loop End Sub