Категоризация с использованием функции IF Then с нечисловыми значениями

Question

Я пытаюсь записать код в автоматическую классификацию естественных и вызванных трещин по типу трещины в паспорте.Я пытаюсь использовать функцию If Then для типов переломов, которые, как известно, являются индуцированными переломами, а не встречающимися в природе.Я пробовал два разных способа заставить эту классификацию работать даже для одного типа, я продолжаю получать ошибки компиляции и синтаксические ошибки.Есть ли лучший способ решить эту проблему?

Sub Simple_if()
    If Range(G4, [G1004]) = "Twist" Then Range(I4, [I1004]) = "Induced"
    End If

Также пытались

 Dim G As Integer
 For G = 4 To 1004

и

 Dim I As Integer
 For I = 4 To 1004
    If Cells(G, 5).Value = "Twist" Then Cells(I, 5).Value = "Induced"

Answer 1

Если какая-то строка на Column G = "Twist", то эта же строка на Column i покажет Induced

Dim i as Long

For i = 4 to 1004
    If Range("G" & i) = "Twist" Then Range("I" & i) = "Induced"
Next i

---

Если вам нужно воздействовать на отрицательный результат( То есть ваше значение НЕ равно "Twist"), вы перейдете на блочную версию оператора If.

Dim i as Long

For i = 4 to 1004
    If Range("G" & i) = "Twist" Then 
        Range("I" & i) = "Induced"
    Else
        Range("I" & i) = "Something Else?"
    End If
Next i