下記のようなVBAを書きました。しかしインデックスが有効範囲にないとメッセージがでるのですが、どこがまちがっているでしょうか??
Sub macro1()
Dim i As Long
Dim r As Long
Worksheets("フェアリスト").Select
Worksheets("csv").Range("A:C").ClearContents
For i = 2 To 50 Step 5
If Worksheets("フェアリスト").Cells(11, i + 1) <> "" Then
r = Worksheets("フェアリスト").Cells(65536, i + 1).End(xlUp).Row
Worksheets("フェアリスト").Range(Cells(11, i), Cells(r, i + 3)).Copy _
Destination:=Worksheets("csv").Range("B65536").End(xlUp).Offset(1)
Worksheets("csv").Range("A65536").End(xlUp).Offset(1).Resize(r - 3, 1).Value = Worksheets("フェアリスト").Cells(8, i).Value
End If
Next i
Worksheets("csv").Range("A1:C1").Delete shift:=xlShiftUp
End Sub
No.1ベストアンサー
- 回答日時:
エラーが出たときに「デバッグ」のボタンをクリックして,具体的に「どの行」に色が付いてエラーになっていたのかを情報提供するようにしてください。
考えられることとしては…
1)Worksheets("フェアリスト").Selectが黄色くなっていたら
・単純にシート名を誤記しているので直します
または
・マクロを開始したときに,フェアリストシートを含んだブックとは違うブックがアクティブになっています
フェアリストシートを含むブックを表に出してからマクロを実行するか,またはマクロの中にフェアリストシートを含むブックをselectする命令を追記します
2)Worksheets("csv").Range("A:C").ClearContentsが黄色くなっていたら
・単純にシート名を誤記しているので直します
または
・csvシートが,フェアリストシートを含むブックとは「別のブックとして開かれています」
csvシートをフェアリストシートを含むブックのシートにしてからマクロを実行するか,またはマクロの中でcsvシートをフェアリストシートのブックに移動します
または,マクロをcsvシートが別ブックにあるという状況に合わせて修正します
#余談:今回のご質問とは関係ない範囲でおかしい箇所
間違い?
Worksheets("csv").Range("A:C").ClearContents
訂正:
Worksheets("csv").Range("A:E").ClearContents
間違い:
Worksheets("フェアリスト").Range(Cells(11, i), Cells(r, i + 3)).Copy _
訂正:
Range(Cells(11, i), Cells(r, i + 3)).Copy _
または
Worksheets("フェアリスト").Range(Worksheets("フェアリスト").Cells(11, i), Worksheets("フェアリスト").Cells(r, i + 3)).Copy _
間違い:
Worksheets("csv").Range("A65536").End(xlUp).Offset(1).Resize(r - 3, 1).Value = Worksheets("フェアリスト").Cells(8, i).Value
訂正:
Worksheets("csv").Range("A65536").End(xlUp).Offset(1).Resize(r - 10, 1).Value = Worksheets("フェアリスト").Cells(8, i).Value
間違い?
Worksheets("csv").Range("A1:C1").Delete shift:=xlShiftUp
訂正:
Worksheets("csv").Range("1:1").Delete shift:=xlShiftUp
この回答への補足
ありがとうございます。
一つ疑問なんですが、Resizeがどうして-10なんでしょうか?
行数が10までありますが、たとえば100行まであった場合は-100になるのでしょうか?
どうしてマイナスするのでしょうか?
No.2
- 回答日時:
はて。
元のご相談:
>しかしインデックスが有効範囲にないとメッセージがでるのですが、どこがまちがっているでしょうか??
は,どこへ行ってしまったのですか?
余談は,あくまでも今回のご質問とは関係無い内容です。
まず今回のご相談内容をクリアして,このご相談を解決で閉じてください。
その次のステップとして指摘した箇所までマクロが到達したら,改めて追加の疑問の箇所の数字を余談でお話しした数字やアナタの思いついた数字に思うとおりに色々変えて,「この数字では意図した結果にならない」や「こうすれば意図通りになる結果」になることを実際にアナタの目で確認し,どうしてそうなるのか考えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
青森県弘前の桜祭りで食べた「...
-
青森駅近辺におすすめな 観光ス...
-
青春18切符で東北夏祭りを・...
-
仙台七夕まつりの七夕はいつ片...
-
ねぶた祭りについて教えて下さい。
-
東京近郊の七夕祭り、いいとこ...
-
岩手の県南地区にある「頌徳碑...
-
お祭りの名前
-
仙台の七夕orねぶた祭り
-
明日って何日だっけ~???
-
新宿でお祭り用品が売っているお店
-
今年の横田基地のお祭り
-
出雲大社の御札と伊勢神宮の御...
-
七五三
-
オクトーバーフェスト in 日比谷
-
青森旅行プラン
-
青い森鉄道の車窓風景について
-
横浜から青森(大間)まで下道...
-
条件つきのMEDIANについて教え...
-
角館から弘前まで。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
岩手の祭り
-
青森駅近辺におすすめな 観光ス...
-
青森ねぶた祭りの終了時間について
-
出雲大社の御札と伊勢神宮の御...
-
青森県弘前の桜祭りで食べた「...
-
ハウステンボスのチューリップ
-
保育園の踊り「ラッセラー」の...
-
青森ねぶた祭りの観覧席
-
福島市駅周辺でどぶ汁のあるお店
-
ねぶた祭りのハネトについて
-
このおかずで飯三杯はいける!...
-
道にぶら下がっている飾り
-
新宿でお祭り用品が売っているお店
-
しめ縄飾りの習慣
-
成人式に出たくないです。 仲い...
-
ねぶた祭の日の最終電車(八戸...
-
琉球村での紅型衣装体験、ウチ...
-
青森・弘前・五所川原周辺の観...
-
愛知県内のお祭り
-
青森市か奥入瀬の周辺で津軽三...
おすすめ情報