Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


55761 / 76732 ←次へ | 前へ→

【25738】複数シートの参照
質問  MLC E-MAIL  - 05/6/13(月) 13:24 -

引用なし
パスワード
   こんにちわ。
シートに2つの表が定位置にあり、このシートが複数あります。
やりたいのは2つの表を縦方向に並べ、さらに複数のシートを
一つに纏める作業です。大体は組めたのですが、
シート数はその時々によって違う為困ってます。
自動的にシート全てを読み込んで処理する方法はありますでしょうか?

Sheets("A").Activate
  Rows("29:31").Select
  Selection.Delete Shift:=xlUp

  ActiveWindow.LargeScroll ToRight:=-1
  Range("j3:q28").Select
  Selection.Cut
  Range("a29").Select
  ActiveSheet.Paste
  
  Sheets("B").Activate
  Rows("29:31").Select
  Selection.Delete Shift:=xlUp

  ActiveWindow.LargeScroll ToRight:=-1
  Range("j3:q28").Select
  Selection.Cut
  Range("a29").Select
  ActiveSheet.Paste
  
このようにA〜Zまでとその時々によって数量が
違うので、自動的にシートを全て読み込む処理
方法あればアドバイスお願いします。
0 hits

【25738】複数シートの参照 MLC 05/6/13(月) 13:24 質問
【25741】Re:複数シートの参照 小僧 05/6/13(月) 13:49 回答
【25778】Re:複数シートの参照 MLC 05/6/14(火) 11:24 お礼
【25779】Re:複数シートの参照 Kein 05/6/14(火) 11:32 発言
【25780】Re:複数シートの参照 小僧 05/6/14(火) 11:47 発言
【25781】Re:複数シートの参照 Kein 05/6/14(火) 13:04 発言
【25810】Re:複数シートの参照 MLC 05/6/15(水) 13:18 お礼
【25742】Re:複数シートの参照 Kein 05/6/13(月) 13:52 回答

55761 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free