Excel 用两组值定义一个变量

Excel 用两组值定义一个变量,excel,vba,Excel,Vba,我想用两组值来定义我的变量。比如说, Dim i as integer For i = 92 to 97 and 104 to 109 你能解释一下正确的方法吗?这是我的- Dim k As Integer For k = 92 To 97 If Range("A" & k).Text = "#NUM!" Then Range("A" & k).Select Selection.ClearContents Range("I" & k).Select Selecti

我想用两组值来定义我的变量。比如说,

Dim i as integer
For i = 92 to 97 and 104 to 109
你能解释一下正确的方法吗?这是我的-

Dim k As Integer
For k = 92 To 97

If Range("A" & k).Text = "#NUM!" Then

Range("A" & k).Select
Selection.ClearContents

Range("I" & k).Select
Selection.ClearContents

Range("J" & k).Select
Selection.ClearContents

End If

Next k


Dim j As Integer
For j = 104 To 109

If Range("A" & k).Text = "#NUM!" Then

Range("A" & j).Select
Selection.ClearContents

Range("I" & j).Select
Selection.ClearContents

Range("J" & j).Select
Selection.ClearContents

End If

Next j
我想组合变量k和j。谢谢

Dim k为整数
Dim k As Integer
For k = 92 To 109
    If Range("A" & k).Text = "#NUM!" and (k <= 97 or k >= 104) Then
        Range("A" & k).ClearContents
        Range("I" & k).ClearContents
        Range("J" & k).ClearContents
    End If
Next k
对于k=92到109 如果范围(“A”&k).Text=“#NUM!”和(k=104),则 范围(“A”和“k”).ClearContents 范围(“I”和k).ClearContents 范围(“J”和“k”).ClearContents 如果结束 下一个k
在我看来,这是合乎逻辑的做法。我还清理了所有的选择。它们是不必要的,可能给你带来更多的麻烦

Dim k为整数
对于k=92到109
如果范围(“A”&k).Text=“#NUM!”和(k=104),则
范围(“A”和“k”).ClearContents
范围(“I”和k).ClearContents
范围(“J”和“k”).ClearContents
如果结束
下一个k

在我看来,这是合乎逻辑的做法。我还清理了所有的选择。它们是不必要的,可能给你带来更多的麻烦

可以在第二个for循环中重用k。如果只想编写一次,可以将内容放入子过程中。您可以有一个单循环,并在每个循环子名称(k)和子名称(k+12)中调用子循环两次。这取决于你想要实现什么,你可以在第二个for循环中重用k。如果只想编写一次,可以将内容放入子过程中。您可以有一个单循环,并在每个循环子名称(k)和子名称(k+12)中调用子循环两次。这真的取决于你想要达到什么。是的,也包括范围(“A”&k,“I”&k,“J”&k)。ClearContentsEp也包括范围(“A”&k,“I”&k,“J”&k)。ClearContents