excel - 有没有办法用一系列数字表示变量以满足vba中的循环条件

Question

有没有办法将变量 f 表示为一系列数字，例如 excel vba 中的 f = 4 到 9？因为我在这里的意图是创建一个条件，使得对于 i = 1 到 lastColumn，如果 i 落入 4 到 9 的范围内，因此它将扫描从 i 到 lastcolumn 的值并接受标题(电压、功率和时间)位于从单元格(1,4)到单元格(1,9)之间，然后将调用私有(private)子电压powertime，在第一次检测到它们的标题时，它通过使用电压、功率和时间列创建多个数据透视表排。如果有其他方式来表达我的意图，我也将不胜感激。

 Dim sh as Worksheet

Dim LastColumn as integer

Dim f as integer

f=4 to 9 '------>How to express f as a range of number?

For i = 1 to LastColumn

if i = f Then

if sht.Cells(1,f).Value = "Voltage" And sht.Cells(1,f).Value= "Power" and sht.Cells(1,f).Value= "Time" Then

Call voltagepowertime

Answer 1

就像 Daghan 建议的那样，您可以通过循环内的 If 条件轻松实现您想要的，该条件测试数字是否在 4 到 9 之间。

你的代码看起来更像这样:

Dim sh as Worksheet
Dim LastColumn as integer

For i = 1 to LastColumn

  'You can easily change these numbers to fit whatever range you want
  if i >= 4 And i =< 9 Then

     if sht.Cells(1,i).Value = "Voltage" And sht.Cells(1,i).Value= "Power" and sht.Cells(1,i).Value= "Time" Then

        Call voltagepowertime

     End if

  End if
Next