由于长数据类型导致的 VBA-Excel 溢出错误

Question

这似乎太容易了，但我很绝望。

我需要做的是获取具有

的“D”列的最后一个值

大量的数字，例如。 987654321，如果值只有两位数，代码就可以了。我只是无法确定问题所在。

Dim lastRow As Long
lastRow = Cells(Rows.Count, "D").End(xlUp).Value
Sheets("Sheet1").TxtBox1.Value = lastRow

Answer 1

就像我在评论中提到的那样，对于如此大的数字，您必须将其声明为双精度数。

Dim lastRow As Double

或者，由于您想将其存储在文本框中，您可以做两件事

1. 将其声明为字符串

2. 直接存储在文本框中。

   Option Explicit
   
   Sub Sample1()
       Dim lastRow As String
   
       With Sheets("Sheet1")
           lastRow = .Cells(.Rows.Count, "D").End(xlUp).Value
           .TextBox1.Value = lastRow
       End With
   End Sub
   
   Sub Sample2()
       With Sheets("Sheet1")
           .TextBox1.Value = .Cells(.Rows.Count, "D").End(xlUp).Value
       End With
   End Sub
   

Answer 2

Long 只能处理高达 2.1B 的值！对于任何更大的值，最好使用Double 而不是Long