尝试使用For，If和Offest循环建立比例

Question

我编写了一个代码，该代码使用“ Samples” spreadsheeet和一个深度数据库，并在“ Log”中显示数字

Sub Log()


 
Dim i As Integer
For i = 1 To 4


   Sheets("Samples").Select
   
   Sheets("Log").Select
   If Value <= 0.2 Then
    ActiveSheet.Range("C9").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value < 0.4 And Value > 0.2 Then
    ActiveSheet.Range("C10").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value <= 0.5 And Value >= 0.4 Then
    ActiveSheet.Range("C11").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 0.5 And Value < 0.9 Then
    ActiveSheet.Range("C12").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value < 1 And Value >= 0.9 Then
    ActiveSheet.Range("C13").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 1 And Value < 1.2 Then
    ActiveSheet.Range("C14").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 1.2 And Value <= 1.5 Then
    ActiveSheet.Range("C15").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 1.5 And Value < 1.8 Then
    ActiveSheet.Range("C16").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 1.7 And Value < 1.9 Then
    ActiveSheet.Range("C17").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 1.9 And Value < 2 Then
    ActiveSheet.Range("C18").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 2 And Value < 2.2 Then
    ActiveSheet.Range("C19").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 2.2 And Value < 2.4 Then
    ActiveSheet.Range("C20").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 2.4 And Value <= 2.5 Then
    ActiveSheet.Range("C21").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 2.5 And Value < 2.8 Then
    ActiveSheet.Range("C22").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 2.8 And Value < 3 Then
    ActiveSheet.Range("C23").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 3 And Value < 3.2 Then
    ActiveSheet.Range("C24").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 3.2 And Value <= 3.5 Then
    ActiveSheet.Range("C25").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 3.5 And Value < 3.7 Then
    ActiveSheet.Range("C26").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 3.7 And Value <= 3.9 Then
    ActiveSheet.Range("C27").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 3.9 And Value < 4 Then
    ActiveSheet.Range("C28").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   End If
   
Next i
  
   

End Sub

电子表格，深度尺。

问题是我使用Offset，并且循环不适用于整个数据库。循环在B6上星标，直到“示例”电子表格上的B13。 这是我已经完成的事情