Ошибка переполнения VBA после обновления с 2007 по 2010 год

Question

У меня есть макрос VBA, который корректно работал в Excel 2007, но после обновления до 2010 года он вызывает ошибки. Макрос в основном копирует необработанные данные с одного листа на несколько листов. Ошибка, вызванная ошибкой 6: переполнение. Линия, которая бросает ошибку тусклого

y As Integer 
y = Worksheets("Raw Data").Range("A2").End(xlDown).Row 

Первоначально я думал, что КИ Ill изменить его на долгое время, и он будет убивать ошибку переполнения. Ну, я думаю, что он убил ошибку, но также выдал очень неправильные результаты, а затем добавил, что ошибка переполнения даже не имеет смысла ... всего 973 строки.

Я тогда подумал, хорошо, может быть плохо попробовать это вместо того, чтобы

Cells(Rows.Count,"A").End(xlUp).Offset(1,0).Select 

Теперь он выдает «Ошибка выполнения„1004“метод„Range“объекта„_global“не удалось» на линии после.

Ниже приведена часть полного кода. Я полагаю, что это может быть ошибка переполнения? Любая помощь приветствуется.

Dim y As Integer 
'y = Worksheets("Raw Data").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select 
y = Worksheets("Raw Data").Range("A2").End(xlDown).Row 

Range("B1:U" & y).Select 
Selection.Copy 
Sheets("Yellow Suppliers").Select 
Range("B2").Select 
ActiveSheet.Paste 
Columns("C:E").Select 
Selection.Delete Shift:=xlToLeft 
Columns("P:Q").Select 
Selection.Delete Shift:=xlToLeft 

Columns("A").ColumnWidth = 2.14 
Columns("B").ColumnWidth = 43.43 
Columns("C").ColumnWidth = 12.14 
Columns("D:O").ColumnWidth = 8 
Columns("P").ColumnWidth = 10.14 

Rows("1").RowHeight = 15 
Rows("2:" & y).RowHeight = 30 

Range("B3:B22").Select 
Selection.Font.Bold = True 

Answer 1

Попытка избавиться от любых Select или Selection в вашем коде. Также подтвердите, что y действительно оценивает ожидаемое значение 973.

Sub Macro2() 
Dim rngY as Range '## a variable to calculate the size of rows used in Column A' 
Dim y As Integer 

With Worksheets("Raw Data") 
    Set rng = .Range("A2").Resize(_ 
     Application.WorksheetFunction.CountA(.Range("A:A"))) 
End With 
    y = rngY(rngY.Rows.Count).Row 

    Range("B1:U" & y).Copy Destination:= _ 
     Sheets("Yellow Suppliers").Range("B2") 

    Columns("C:E").Delete Shift:=xlToLeft 
    Columns("P:Q").Delete Shift:=xlToLeft 

    Columns("A").ColumnWidth = 2.14 
    Columns("B").ColumnWidth = 43.43 
    Columns("C").ColumnWidth = 12.14 
    Columns("D:O").ColumnWidth = 8 
    Columns("P").ColumnWidth = 10.14 

    Rows("1").RowHeight = 15 
    Rows("2:" & y).RowHeight = 30 

    Range("B3:B22").Font.Bold = True 
End Sub 

Answer 2

Целые в VBA являются 16-битным числом, которое означает, что наибольшее значение они могут принять это 32767. Там может быть много больше строк в таблице, чем в новых версиях Excel.

Вам нужно использовать длинное, а не целое число. Длинный 32-битный подписан; достаточно большого.

Меняет Dim y As Integer к Dim y as Long

На самом деле я удивлён он работал в Excel 2003, как, если мне не изменяет память, имеет 65536 строк. Но попробуйте мое предложение, так как ваш код определенно неверен.