Question

我正在尝试用代码将数据中的裂缝类型的自然裂缝和诱发裂缝自动分类。我正在尝试对已知类型的裂缝而不是自然裂缝的裂缝类型使用If If函数。我一直通过编译错误和语法错误尝试了两种不同的方法来使该分类适用于单个类型。有没有更好的方法来解决此类问题？

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

如果您需要对否定结果采取行动（ IE，您的值不等于"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

使用具有非数值的IF Then函数进行分类

1 个答案: