嵌套循环应该取一个点并找到它的描述并将其写入另一列。我遇到的问题只是将值 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