ランタイムエラー '6'の取得：オーバーフローエラー

Question

コードは数日前に正常に動作していましたが、現在は件名エラーが発生しています。助けて？

Sub CopyRows() 
    Dim bottomL As Integer 
    Dim x As Integer 
     bottomL = Sheets("Pacer").Range("L" & Rows.Count).End(xlUp).Row: x = 1 

    Dim c As Range 
    For Each c In Sheets("Pacer").Range("A1:L" & bottomL) 
     If (c.Value = "AFSB" Or c.Value = "TEIGIP4T" Or c.Value = "EPP") Then 
      Intersect(c.Parent.Columns("A:Q"), c.EntireRow).Copy Worksheets("Portfolio").Range("A" & x + 1) 
      x = x + 1 
     End If 
    Next c 

End Sub 

Answer 1

この

Option Explicit 

Sub CopyRows() 
    Dim bottomL As Long 
    Dim x As Long 
     bottomL = Sheets("Pacer").Range("L" & Rows.CountLarge).End(xlUp).Row: x = 1 

    Dim c As Range 
    For Each c In Sheets("Pacer").Range("A1:L" & bottomL) 
     If (c.Value = "AFSB" Or c.Value = "TEIGIP4T" Or c.Value = "EPP") Then 
      Intersect(c.Parent.Columns("A:Q"), c.EntireRow).Copy Worksheets("Portfolio").Range("A" & x + 1) 
      x = x + 1 
     End If 
    Next c 

End Sub 

理由はhere実際にエラーが発生しライン

Answer 2

変数 bottomL As Integer

オーバーフローエラーにそれが32,767行を超える瞬間を与えます。ルールがXに適用されるだけでなく、それが増加している：それは限り

bottomL As Long

編集宣言してみてください。