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

这似乎太容易了，但我是如此绝望。

我需要做的是得到最后的值列“D”的

数量大， 前任。 987654321，如果值只有两位数，则代码没问题。我只是无法识别问题所在。

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

就像我在评论中提到的，对于这么大的数字，你必须将其声明为双精度。

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