使用vba将值插入下一个单元格

Question

我正在尝试从网页上获取数据。我的VBA代码如下

m = 0
For Each htmlele1 In doc.getElementsByClassName("resultsbranch")
    m = m + 1
    companyname = htmlele1.getElementsByTagName("h2")
    Address = htmlele1.getElementsByTagName("span")
    If Address.getAttribute("itemprop") = "myaddress" Then
        Range("D" & i).Value = companyname.innerText + "," + Address.innerText
    End If
    Teliphone = htmlele1.getElementsByClassName("teldata")
    If Teliphone.getAttribute("itemprop") = "tel" Then
        Range("E" & i).Value = Teliphone.innerText
    End If
    'i = i + 1
    'Debug.Print i
Next

在第一次迭代中，将值插入列 D，E
在第二次迭代中，我想将数据插入 F，H 。
在第3次迭代 I，J
在第4次迭代 K，L 所以直到第n次迭代

我该怎么做？

Answer 1

而不是：

Range("D" & i).Value
Range("E" & i).Value

使用：

Cells(i, (m*2 + 3)).Value
Cells(i, (m*2 + 4)).Value

或者使用另一个柜台......如你所愿......希望有所帮助。