定義一個具有兩組值的變量

我想用兩組值來定義我的變量。例如，定義一個具有兩組值的變量

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。謝謝！

來源

2012-12-06 Chris2015

您可以在第二個for循環中重用k。如果你只想寫一次，你可以把這些東西放入子程序中。你可以有一個循環ang每次循環SubName（k）和SubName（k + 12）兩次調用sub。這真的取決於你想要達到的目標。 –

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

在我看來，這似乎是合乎邏輯的方法。我也清理了所有這些選擇。它們是不必要的，並且可能會給您帶來麻煩。

來源

2012-12-06 11:12:07 ApplePie

也是範圍（「A」＆k，「I」＆k，「J」＆k）.ClearContents – InContext

定義一個具有兩組值的變量

回答

相關問題