0

Excel 2007 では正しく機能する VBA マクロを使用していますが、2010 に更新するとエラーが発生します。マクロは基本的に生データを 1 つのシートから複数のシートにコピーします。スローされるエラーはエラー 6: オーバーフローです。エラーをスローしている行は Dim です

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

最初は、それを long に変更しても問題ないと思っていました。これにより、オーバーフロー エラーが解消されます。まあ、それはエラーを殺したと思いますが、非常に間違った結果も出力し、オーバーフローエラーは意味をなさないことに気付きました... 973行しかありません。

それから私は大丈夫かもしれないと思いました代わりにこれを試してください

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

これで、次の行に「実行時エラー '1004' オブジェクト '_global' のメソッド 'range' が失敗しました」がスローされます。

以下は完全なコードの一部です。オーバーフローエラーになる可能性があることを知っていますか? どんな助けでも大歓迎です。 

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
4

2 に答える 2