excel - 以 0.25 步长值循环

Question

我的数据依赖于一个单元格中的值。我需要通过将此值更改 0.25 步长值来收集数据。

我试图在 VBA 中单独执行它，但是它非常乏味。

Sub total_usage2()
    Sheets("1_GENERAL").Activate
    Range("A2").Value = 49
    Sheets("4.MINUTES").Activate
    Range("BL371").Activate
    Range("BL371").Copy
    Sheets("9").Activate
    Range("A2").PasteSpecial xlPasteValues
    Sheets("1_GENERAL").Activate
    Range("A2").Value = 49.25
    Sheets("4.MINUTES").Activate
    Range("BL371").Activate
    Range("BL371").Copy
    Sheets("9").Activate
    Range("A3").PasteSpecial xlPasteValues
    Sheets("1_GENERAL").Activate
    Range("A2").Value = 49.5
    Sheets("4.MINUTES").Activate
    Range("BL371").Activate
    Range("BL371").Copy
    Sheets("9").Activate
    Range("A4").PasteSpecial xlPasteValues
End sub

我为这个场合准备了循环

Sub calculation()
    Dim i As Integer
    For i = 0 To 90 Step 0.25
    Sheets("1_GENERAL").Range("a2") = CStr(i)
    Sheets("9").Range("A" + CStr(i + ((i - 1) * 1))).Rows(3).PasteSpecial xlPasteValues
    Next i
End Sub

我想更改每 0.25 步的值(如图所示)，并将其逐列粘贴到另一个工作表中。

Answer 1

如果步长为 0.25，则不能使用整数 - 使用单个整数。现在您可以执行循环:

Sub foo()
    Dim i As Single
    With Worksheets("9")
        .UsedRange.Clear
        .Range("A1").Value = "Input"
        .Range("B1").Value = "Output"
        For i = 0 To 90 Step 0.25
            Worksheets("1_GENERAL").Range("A2").Value = i
            With .Cells(Rows.Count, 1).End(xlUp)
                .Offset(1, 0).Value = i
                .Offset(1, 1).Value = Worksheets("4.MINUTES").Range("BL371").Value
            End With
        Next i
    End With
End Sub