循环并导出到新工作表

时间:2019-07-10 22:25:32

标签: excel vba

我是VBA的新手和初学者。我正在尝试测试一些热数据。我已经硬编码了满足参数所需的上限和下限。我需要从工作表中调用数据,将其通过循环传递以及将新数据输出到新工作表的帮助。我希望输出为“太热”或“太冷”。

最终,我想添加更多代码来计算温度差异,并将其输出到第二个工作表中。

我有大约4000行数据。 20列乘4000行。

非常感谢您的帮助和建议!

我尝试使用一个消息框作为输出,但是测试数据太多。

Sub SelectCaseBoomThermal()
'Check dwell temperature in case statement. Loops through rows and columns from sheet 1 in workbook.

SelectCaseBoomThermal (Temp)
Dim ramptemp As Long

'Create a counter
Dim i As Integer
i = 1

'Loop while the counter is less than 100
Do While i < 3453

    MsgBox i

    For i = 29 To dataCol

    Select Case Temp

        Case Is >= 107
    'Check if rampTemp is too hot
        MsgBox "Ramp temp is too hot (+)"

        Case Is >= 97
    'Check if rampTemp is too cold
        MsgBox "Ramp temp is too cold (+)"

        'Case Is <= -137
    'Check if rampTemp is too hot
        MsgBox "Ramp temp is too hot (+)"

        Case Is >= -127
    'Check if rampTemp is too cold
        MsgBox "Ramp temp is too cold (+)"

    End Select

Next i
        Exit Do

    End If

'Add 1 to the counter
 i = i + 1

Loop

End Sub

我希望我的输出数据在新的工作表中。

0 个答案:

没有答案