VBA暗淡投掷错误6

Question

我是VBA的新手，希望有人能帮助我理解为什么“ean”行会出现运行时错误6：

Sub RemovalOf_Barcodes()   
Application.ScreenUpdating = True    
Dim i As Long    
Dim temp As Long    
Dim ean As Long    
Dim y As Long    


i = 2    
Do While Cells(i, 2) <> ""   
i = i + 1   
Loop   
i = i - 1   

For y = 2 To i   
    ean = Cells(y, 2).Value   
Next y 

我也试过使用下面的

For y = 2 To i
    temp  =  Cells(y, 2).Value
    ean = Clng(temp)   
Next y 

我知道我能得到的所有帮助：）

Answer 1

您的问题是，EAN号码的长度通常为13位，您试图将其存储在Long

中

Dim ean As Long   

如果你必须将其存储为数值（为什么！？你在做数学吗？），尝试将其存储在Double中。如果它是一个没有小数位的普通EAN，我认为Double会起作用。

Dim ean As Double

但正如@Vityata所说，String更适合此目的。