excel - 每个循环的 VBA Excel

Question

嵌套循环应该取一个点并找到它的描述并将其写入另一列。我遇到的问题只是将值 fromB20写入C10:C20. 如果我将第四行更改为b.value，它对于输出正常工作，但在错误的列中，所以我认为这是一个循环问题，但我没有看到解决方案。

For Each b In Worksheets("Device").Range("B10:B20").Cells
    For Each c In Worksheets("Device").Range("C10:C20").Cells
        Set pt = srv.PIPoints(b.Value)
        c.Value = pt.PointAttributes.Item("descriptor")
    Next
Next

Answer 1

尝试改用这个：

For Each b in WorkSheets("Device").Range("B10:B20").Cells   
    Set pt = srv.PIPoints(b.Value)
    b.Offset(,1).Value = pt.PointAttributes.Item("descriptor")
Next

whereb.Offset(,1)给你一个单元格到右边的一列b，即如果b指向B11然后b.Offset(,1)指向C11