範囲内の値に基づいて座標を取り込むためのループスルー範囲

Question

私はカメラ較正用のスプレッドシートで作業しています。このスプレッドシートには、利用可能な78のターゲットのうち14を使用するオプションがあります。私は、各セルの値に基づいて、使用されるターゲットの範囲をループするコードを作成し始めました。隣接するセルにx、y、zの座標値を設定します。当初はループが範囲を通過するように作成され、各ターゲットに対応するif文を手動で書きました。さて、もう一つのforループを実装してこれを行うより良い方法があると確信しています。私が何を持っているかは、無限ループに入り続ける。 refactoredas可能性があり

私のコードの試み

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

あなたのコードは、あなたのデータを共有している場合、我々はよりよい解決策を提供することができます

Sub macro() 
    Dim rng As range, cell As range 

    Set rng = range("d2:d15") 
    For Each cell in rng 
     If cell>=1 And cell <=78 Then cell.Offset(,1).Resize(,3).Value = Cells(26 + j, 2).Resize(,3).Value 
    Next 
End Sub