excel VBA如果循环读取.74大于.99？
所以问题是我正在经历一个范围，如果其中任何一个单元格偏移到右侧大于99％（.99），那么导出该表并清除信息。 出于某种原因，它没有正确阅读，从我所看到的任何高于50％的数字都是出口和清算。 我不知道我有什么错，但任何帮助将不胜感激！
Sub Export_loop() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim Vol As Long Dim Wght As Long Dim LR As Long Dim rng As Range Dim rCell As Range LR = Sheets("Summary").Range("B" & Rows.Count).End(xlUp).Row Set rng = Sheets("Summary").Range("A2:A" & LR) LR = Range("B" & Rows.Count).End(xlUp).Row Sheets("Summary").Range("A2").Activate Vol = ActiveCell.Offset(0, 7).Value Wght = ActiveCell.Offset(0, 9).Value For Each rCell In rng If Vol > 0.99 Or Wght > 0.99 Then Call Save_Out ThisWorkbook.Sheets(ActiveCell.Value).Activate Range("A3:N24").Clear Range("R3:R24").Clear Range("X3:X24").Clear ThisWorkbook.Sheets("Summary").Activate ActiveCell.Offset(1, 0).Select Vol = ActiveCell.Offset(0, 7).Value Wght = ActiveCell.Offset(0, 9).Value Else ActiveCell.Offset(1, 0).Select Vol = ActiveCell.Offset(0, 7).Value Wght = ActiveCell.Offset(0, 9).Value End If Next rCell MsgBox "Exports Completed" End Sub 您正在使用Long作为您的数据types。 Long数据types用于整数数字，它们太大而不适合整数数据types。
您应该使用单数据或双数据types，具体取决于您所需的精度级别。