Excel迭代循环VBA

我试图循环访问一列数据，并更改文本文本以显示结果数据。 目前这是我的代码

For index = 0 To 34 Step 1 Me.txtLat.Text = ws.Range("F3") Me.txtLong.Text = ws.Range("G3") Next index 

但是我希望“F3”根据索引更改为“F4”，“F5”等。 我相信它很简单，只是有一个严重的脑部抽筋。

我已经尝试了以下，但它没有奏效

 For index = 0 To 34 Step 1 Me.txtLat.Text = ws.Range("F3+index") Me.txtLong.Text = ws.Range("G3+index") Next index 

我想我需要隔离行号，但不知道如何…帮助！

Answer 1

你很近，但是你需要将indexvariables连接到string，如下所示：

 For index = 3 To 34 Step 1 Me.txtLat.Text = ws.Range("F" & index).value Me.txtLong.Text = ws.Range("G" & index).value Next index 

但是这是一个文本框，所以你只会显示最后一个值。

---

如果你想添加项目到combobox中的列表，试试这个：

 For index = 3 To 34 Step 1 Me.txtLat.AddItem = ws.Range("F" & index).value Me.txtLong.AddItem = ws.Range("G" & index).value Next index 

您也可能会发现，您需要先清除它，以免重复列表。

 Me.txtLat.Clear