[英]VBA Excel For Each Loop
嵌套循环应该采用一个点并找到它的描述并将其写入另一列。 我B20
的问题是只有B20
的值被写入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
尝试使用这个:
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
其中b.Offset(,1)
给出了b
右边一列的单元格,即如果b
指向B11
则b.Offset(,1)
指向C11
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.