Excel VBA質問箱 IV

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

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


69925 / 76733 ←次へ | 前へ→

【11321】Re:オートフィルターで項目別にシートに...
回答  Jaka  - 04/3/5(金) 12:54 -

引用なし
パスワード
   追加したシートだけだと。

Sheets(Cel.Value).Range("A2").PasteSpecial
Sheets(Cel.Value).Range("A1").Select
Sheets(Cel.Value).Cells.EntireColumn.AutoFit  '追加
Sheets(Cel.Value).Cells.EntireRow.AutoFit   '追加


>オートフィルターを使わなくてもできるやり方
こんな感じでしょうか?

前処理
Gを行番号とし、Gに2を代入。

メイン処理
A列G行の値と同じシート名が有る?
 Yes
 そのシートの最終行を調べ、次の行にデータをコピペする。
 No
 シートを追加作成して、シート名にA列G行の値の名前をつける。
 1行目の項目名をコピペする。
 シートの最終行を調べ、次の行にデータをコピペする。

最後の行?
 Yes
 終り
 No
 Gにプラス1して、メイン処理の先頭に戻る。

3 hits

【11282】オートフィルターで項目別にシートに保存 みかん 04/3/4(木) 16:49 質問
【11284】Re:オートフィルターで項目別にシートに保存 IROC 04/3/4(木) 17:07 回答
【11288】Re:オートフィルターで項目別にシートに... みかん 04/3/4(木) 17:19 発言
【11290】Re:オートフィルターで項目別にシートに... IROC 04/3/4(木) 17:33 回答
【11303】Re:オートフィルターで項目別にシートに... みかん 04/3/5(金) 9:05 発言
【11305】Re:オートフィルターで項目別にシートに... Jaka 04/3/5(金) 9:10 回答
【11307】Re:オートフィルターで項目別にシートに... みかん 04/3/5(金) 9:45 質問
【11308】Re:オートフィルターで項目別にシートに... IROC 04/3/5(金) 9:51 回答
【11317】Re:オートフィルターで項目別にシートに... みかん 04/3/5(金) 12:15 質問
【11318】Re:オートフィルターで項目別にシートに... みかん 04/3/5(金) 12:17 発言
【11321】Re:オートフィルターで項目別にシートに... Jaka 04/3/5(金) 12:54 回答
【11327】Re:オートフィルターで項目別にシートに... みかん 04/3/5(金) 13:58 質問
【11328】Re:オートフィルターで項目別にシートに... Jaka 04/3/5(金) 14:18 回答
【11335】Re:オートフィルターで項目別にシートに... みかん 04/3/5(金) 15:04 お礼

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