![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
コピー・ペーストで地道にやり始めましたが、操作ミスがあるような気がして
------------------------------------------------------------
多分末尾へ貼り付けをされているのでは
→貼り付け位置のためのスクロールが大変ですね
下にするシートから順に
コピーしたセル挿入で、貼り付け位置がセルA1と同じになります。
またこうすると張り付けるsheet選択と張り付ける範囲選択以外は同じ流れです
この同じ流れのマクロが次です(Sheet0にコピペする)
Sub コピーしたセル挿入()
Selection.Copy
Sheets("Sheet0").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown (右方向は =xlRight)
End Sub
ここまで準備して
1.すべてのSheetの有効範囲を選択します
2.コピペするシートを逆順に「Sheetクリック→マクロ実行」
No.3
- 回答日時:
この質問のように、単純なことで、意外と難しいのが面白い!!
すぐ、VBAでと考えますが、やさしい方法はないか考えました。
1ファイルなら、コピベで地道にが、1番。たくさんのファイルなら ↓
No.1さんが勧めるように、そのママ利用するなら、シート見出し左の矢印部分を右クリック
CONCATENATE関数で結合して、区切りウィザードで分離 も考えましたが、試さず
単純に、=で別Sheetのデーターを持ってくる、楽な方法を試してみました。
1Sheetに1列の日報として
1B1に、Sheet2!Aと入力
2シート数分、右へオートフィル
3そのママ、選択状態で
AをA1に、すべて置換
(検索と置換DLBは閉じない)
4選択状態のママ、ダブル(W)クリックなどで
下へオートフィル
5そのママ、選択状態で
Sを=Sに、すべて置換
複数列の場合は、もう少し考えないといけませんね。
鎌倉 曽野蜩
この回答へのお礼
お礼日時:2013/03/25 21:49
TammyG3さん、ありがとうございます。
本当に単純なことだと思うのですが、こんな操作はあまり
需要がないのでしょうか?
もっと簡単にできると思ったのですが。
No.2
- 回答日時:
'ブックの全シートを単純に1枚にまとめる
Option Explicit
Const xName_To = "Combiner"
Const xHeads = 1
Sub CombineSheets()
Dim xLast_From As Long
Dim xLast_To As Long
Dim kk As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For kk = 1 To Worksheets.Count
If (Worksheets(kk).Name = xName_To) Then
Worksheets(kk).Delete
Exit For
End If
Next
'先頭に集合用のワークシートを追加
Worksheets.Add Before:=Worksheets(1)
Worksheets(1).Name = xName_To
For kk = 2 To Worksheets.Count
'元データを選択してコピー
xLast_From = Worksheets(kk).Cells(Rows.Count, "A").End(xlUp).Row
Application.CutCopyMode = False
With Worksheets(xName_To)
'集合先のシートの行数を調べる
xLast_To = .Cells(Rows.Count, "A").End(xlUp).Row
Application.CutCopyMode = False
If (xLast_To = 1) Then
'ヘッダをコピー
Worksheets(kk).Rows("1:" & xHeads).Copy
.Range("A1").PasteSpecial
xLast_To = .Cells(Rows.Count, "A").End(xlUp).Row
Application.CutCopyMode = False
End If
'ヘッダを除いてコピー
Worksheets(kk).Rows(xHeads + 1 & ":" & xLast_From).Copy
.Range("A" & xLast_To + 1).PasteSpecial xlPasteValues
End With
Next kk
Worksheets(1).Select
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
この回答へのお礼
お礼日時:2013/03/25 21:46
JazzCorpさん、ありがとうございます。
試してみたいのですが、ちょっと自分には難しそうなので
時間があるときに頑張ってみたいです。
No.1
- 回答日時:
直接の回答にはなりません。
なぜ1シートに纏めたいのでしょうか?
呼び出しがやりにくい?
実は知人が地区の管理ファイルを貰いましたが、これもシートが多く呼び出すにも面倒でした。
そこで一番左に新しい目次シートを挿入して、各シートへの呼び出しハイパーリンクを作成しました。
目次シートを表示して、このリンクをクリックすれば簡単に目的シートを呼び出すことができ、かなり楽になったと喜んでいました。
求める回答と違っていたらゴメンなさいね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/25 11:42
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの下部のシートタブの...
-
エクセルで別シートの同じ位置...
-
エクセルでセルの書式設定がで...
-
ワークシートの行が途中から表...
-
シート全体を他のブックのシー...
-
EXCELでコピーしたグラフのデー...
-
Excelで保護のかかったシートの...
-
excelで勝手にテキストボックス...
-
VBA アクティブでないシートの...
-
【エクセル】表から条件に合っ...
-
エクセルで数式は残したまま他...
-
エクセルで選択した行以外を削...
-
EXCELで複数シート作成後、全シ...
-
Excelで大量の2000個のリストを...
-
フィルタされたものを切り取り...
-
コピー&ペーストすると、VLOOK...
-
行の挿入ができなくなった
-
エクセルで多数のシートをまと...
-
ロックしたセルのコピー&貼り付け
-
wordからexcelへ一部のデータを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
エクセルの下部のシートタブの...
-
エクセルでセルの書式設定がで...
-
シート全体を他のブックのシー...
-
EXCELでコピーしたグラフのデー...
-
ワークシートの行が途中から表...
-
エクセルで数式は残したまま他...
-
Excelで保護のかかったシートの...
-
ロックしたセルのコピー&貼り付け
-
Excelで大量の2000個のリストを...
-
VBA アクティブでないシートの...
-
excelで勝手にテキストボックス...
-
シート保護してても並び替えを...
-
【エクセル】数式のセル番地を...
-
Excelでハイパーリンク先の表示...
-
行の挿入ができなくなった
-
【エクセル】表から条件に合っ...
-
スプレッドシートが真っ白にな...
-
エクセルファイルの容量が大き...
-
シート保護したExcelへの画像貼...
おすすめ情報