Question

我正在使用excel电子表格进行相机校准。在此电子表格中，可以选择使用78个可用目标中的14个。我已经开始编写循环遍历所使用目标范围的代码，基于每个单元格中的值，它将使用x，y和z坐标值填充相邻单元格。最初只用于循环遍历范围并手动编写78 if语句来为每个目标服务。好吧，我相信通过实现另一个for循环有更好的方法来做到这一点。我一直在进行无休止的循环。

我的代码尝试

Sub macro()

Dim rng As range, cell As range

Set rng = range("d2:d15")

' Target 1
For i = 1 To Rows.Count
    For j = 1 To 78
        If Cells(i, 4).Value = j Then
            Cells(i, 5) = Cells(26 + j, 2)
            Cells(i, 6) = Cells(26 + j, 3)
            Cells(i, 7) = Cells(26 + j, 4)
        End If
    Next j
Next i

End Sub

Answer 1

您的代码可以重构为

<template permissionIf [permissionIfExcept]="'Read'">
  <h2>Except</h2>
</template>

循环遍历范围以根据范围

1 个答案: