いつも質問に協力して頂き、たいへん感謝しています。
今回の質問ですが、
別のシート(一覧)のB列にシート名が下記のように記載されています。
C4-1
C4-2
C4-3
・
・
・
別シート(一覧)のB列に記載されたシート名(C4-1)を選択し、選択されたシート(C4-1)の欲しい対象範囲のコピーの作業を行い、別シートの選択されていた(C4-1)横の列に貼り付ける。終われば、下のC4-2で同じ作業を行う。をB列の空欄まで行いたいのですが・・・。
最初の『別シート(一覧)のB列に記載されたシート名(C4-1)を選択し』で選択する方法が分からなくなっちゃいました。自分が記述した内容は、
Sub シートを繰り返し選択する()
Dim d As Integer
d = 2
Worksheets(Worksheets("一覧").Cells(d, 2)).Activate
End Sub
です。当然エラーになり、思うようになりませんでした。どのようにしたら繰り返しに適した記述になるのでしょうか?ちなみに繰り返しは記述していません。
もう一つ質問です。
欲しい対象範囲についてです。B4始まりの対象範囲の選択ですが、範囲の終点を最後の空欄(途中の空欄は無視)までにしたい場合の記述方法を教えてください。
御指導お願い致します。
No.1ベストアンサー
- 回答日時:
非常に惜しいです。
Worksheets(Worksheets("一覧").Cells(d, 2).Value).Activate
でもう一度チャレンジしてみましょう。
> 繰り返しに適した記述
「For~Next」
「Do~Loop」
あるいは「EXCEL VBA 繰り返し」
などで検索すると、きっと見つかりますよ。
> もう一つ質問です。
1スレッド1質問と言う暗黙のルール・マナーをご存知ですか?
気を付けましょうね。
> 範囲の終点を最後の空欄(途中の空欄は無視)
「EXCEL VBA 最終行(または最終列)」で検索するときっと見つかります。
回答ありがとうございました。Valueが必要だったんですね。あと、1スレッド1質問と言う暗黙のルール・マナー知りませんでた。以後気を付けます。
No.2
- 回答日時:
こんばんは!
横からお邪魔します。
2番目の質問
>B4始まりの対象範囲の選択ですが、範囲の終点を最後の空欄(途中の空欄は無視)までにしたい
に関しては
Dim i As Long
For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(i, "B") <> "" Then
・・・やりたいこと・・・
End If
Next i
こんな感じでやってみてはどうでしょうか?m(_ _)m
回答ありがとうございます。
せっかくの回答ですが、自分はあまり応用力が無くて・・・。例題を活かすことが出来ませんでした。申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで繰り返しコピーしながら下...
-
ExcelのVlookup関数の制限について
-
オートフィルタ使用時にCOUNTIF...
-
文字の色も参照 VLOOKUP
-
【条件付き書式】countifsで複...
-
Excel の複数シートの列幅を同...
-
エクセルで横並びの複数データ...
-
エクセルVBA 行追加時に自...
-
エクセルの列の限界は255列以上...
-
エクセルの保護で、列の表示や...
-
VLOOKアップ関数の結果の...
-
【VBA】ピボットテーブルを既存...
-
excel 複数のシートの同じ場所...
-
Excelでの並べ替えを全シートま...
-
エクセル マクロ 標準モジュー...
-
エクセル関数に詳しい方、教え...
-
Excel VBA ピボットテーブルに...
-
SUMPRODUCTにて別シートのデー...
-
スプレッドシートでindexとIMPO...
-
シートをまたぐ条件付き書式に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
文字の色も参照 VLOOKUP
-
オートフィルタ使用時にCOUNTIF...
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel の複数シートの列幅を同...
-
【VBA】シート名と見出しが一致...
-
エクセルで横並びの複数データ...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
【条件付き書式】countifsで複...
-
VLOOKアップ関数の結果の...
-
Excel VBA ピボットテーブルに...
-
エクセル マクロ 標準モジュー...
-
Excelで、ファイル名、シート名...
-
エクセルで、チェックボックス...
-
【VBA】複数のシートの指定した...
-
エクセルVBAで、ある文字を含ん...
-
スプレッドシートでindexとIMPO...
-
SUMPRODUCTにて別シートのデー...
おすすめ情報