Note: The other languages of the website are Google-translated. Back to English

Excelで複数の選択範囲または範囲をコピーするにはどうすればよいですか?

たとえば、大きなワークシートがあり、選択した範囲のみをコピーして他のワークシートに配布したいとします。 ただし、複数の範囲を選択して[コピー]をクリックすると、「そのコマンドは複数の選択で使用できません」というプロンプトダイアログボックスが表示されます。 この状態で、選択した複数の範囲をすばやくコピーするにはどうすればよいですか? このタスクを解決するための秘訣をいくつか紹介します。


クリップボードで選択した複数の範囲をコピーする

の助けを借りて、 クリップボード、選択したすべての範囲を一度に別の範囲またはワークシートに貼り付けることができます。 次のようにしてください。

1に設定します。 OK をクリックします。 ホーム > ドキュメントコピー複数の範囲09 クリップボード 表示するグループ クリップボード パン.。 スクリーンショットを参照してください:

2。 次に、必要な選択した範囲をXNUMXつずつコピーします。 同時に、コピーされた範囲はに表示されています クリップボード パン. 上記のスクリーンショットを参照してください。

3。 コピーしたすべての範囲を貼り付ける宛先範囲の最初のセルを選択し、をクリックします すべて貼り付け ボタンの クリップボード ペイン。

そして、コピーされたすべての範囲が指定された宛先範囲に貼り付けられました。

多くのワークシート/ワークブックからの複数の選択をXNUMXつのワークシート/ワークブックに簡単に組み合わせる

異なるワークブックの数十枚のシートをXNUMX枚のシートにまとめるのは面倒かもしれません。 しかし、Kutools forExcelの 組み合わせる(ワークシートとワークブック) ユーティリティ、あなたはそれを数回クリックするだけで成し遂げることができます!


広告コンバインシートブック1

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手

選択した複数の範囲をVBAコードでコピーする

VBAコードを使用すると、選択した複数の範囲をコピーして、他のワークシートに貼り付けることもできます。

1。 ホールディング Ctrlキー キーを押して、使用する隣接していない複数の範囲を選択します。

2。 押す 他の + F11 同時にキーを開いて アプリケーション用のMicrosoftVisual Basic ウィンドウ、クリック インセット > モジュール、および次のコードをモジュールに入力します。

Option Explicit Sub CopyMultipleSelection()Dim SelAreas()As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer、i As Integer Dim TopRow As Long、LeftCol As Integer Dim RowOffset As Long、ColOffset As Integer Dim NonEmptyCellCount As Integer'Exit範囲が選択されていない場合TypeName(Selection)<> "Range" Then MsgBox "コピーする範囲を選択します。複数選択が可能です。" Exit Sub End If '領域を個別の範囲オブジェクトとして格納しますNumAreas = Selection.Areas.Count ReDim SelAreas(1 To NumAreas)For i = 1 To NumAreas Set SelAreas(i)= Selection.Areas(i)Next'左上を決定します複数選択のセルTopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas(i).Row <TopRow Then TopRow = SelAreas(i).Row If SelAreas(i).Column <LeftCol Then LeftCol = SelAreas(i).Column Next Set UpperLeft = Cells(TopRow、LeftCol) '貼り付けアドレスを取得エラー時に再開次の設定PasteRange = Application.InputBox _(Prompt:= "貼り付けの左上のセルを指定range: "、_ Title:=" Copy Mutliple Selection "、_ Type:= 8)On Error GoTo 0 'キャンセルされた場合は終了IfTypeName(PasteRange)<>" Range "Then ExitSub'左上のセルのみが使用済みSetPasteRange = PasteRange.Range( "A1") '既存のデータの貼り付け範囲を確認しますNonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas(i).Row-TopRow ColOffset = Sel Areas(i).Column-LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA(Range(PasteRange.Offset(RowOffset、ColOffset)、_ PasteRange.Offset(RowOffset + SelAreas(i).Rows.Count-1、_ ColOffset + SelAreas (i).Columns.Count --1)))Next i '貼り付け範囲が空でない場合は、ユーザーに警告If NonEmptyCellCount <> 0 Then _ If MsgBox( "既存のデータを上書きしますか?"、vbQuestion + vbYesNo、_ "複数選択をコピー")<> vbYes Then Exit Sub '各領域をコピーして貼り付けますFori = 1 To NumAreas RowOffset = SelAreas(i).Row-TopRow ColOffset = SelAreas(i).Column-LeftCol SelAreas(i).Copy PasteRange.Offset( RowOffset、ColOffset)Next i End Sub

3。 次に、 ラン ボタンを押してコードを実行します。

4。 次に、セルを指定して、開口部に範囲を貼り付けてください 複数選択をコピー ダイアログボックスをクリックし、 OK ボタン。 スクリーンショットを参照してください:


XNUMXつのワークシートから選択した複数の範囲をすばやくコピーする

世界 複数の範囲をコピーする の有用性 Kutools for Excel アクティブなワークシートから複数の範囲をすばやく簡単にコピーするのに役立ちます。 次のようにしてください。

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手

1。 を押さずに使用したい範囲をXNUMXつずつ選択します Ctrlキー キーを押してからクリックします クツール > コピー範囲。 スクリーンショットを参照してください:

2。 の中に 複数の範囲をコピーする ダイアログボックス、チェック 全て からのオプション 特別なペースト セクションを開き、 OK button。 上記のスクリーンショットを参照してください。

注意: 行の高さと列の幅を元の範囲のままにしたい場合は、チェックしてください 行の高さを含む オプション 列幅を含む [複数の範囲をコピー]ダイアログボックスのオプション。

3。 次のプロンプトボックスに範囲を貼り付けるセルを指定して、[ OK ボタン。

これで、選択したすべての範囲が、元の選択と同じ行の高さと列の幅として、指定したセルに貼り付けられます。

複数範囲のコピーユーティリティの詳細については、ここをクリックしてください       

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手


多くのワークシート/ワークブックから複数の範囲をコピーする

Kutools forExcelは別のものを提供します ワークシートを組み合わせる Excelで多くのワークシートまたは多くのワークブックから複数の範囲を簡単にコピーするユーティリティ。 次のようにしてください。

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手

1。 クリック クツールズプラス > 組み合わせる.

2. [ワークシートの結合–ステップ1/3]ダイアログボックスを開いて、[ ワークブックの複数のワークシートをXNUMXつのワークシートに結合します オプションをクリックし、 次へ ボタン。

3。 [ワークシートの結合–ステップ2/3]ダイアログボックスで、次のようにしてください。

(1)でワークブックを選択します ワークブックリスト セクションをクリックし、 ブラウズ 各ワークシートの後ろにあるボタンをクリックして、各ワークシートの範囲を指定します。
(2)をクリックします 追加 ボタンをクリックして、範囲をコピーする他のブックを追加し、上記(1)を繰り返して、追加したブックの範囲を指定します。
(3)をクリックします 終了 ボタン。

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手

4。 次に、Kutools for Excelダイアログボックスが表示され、組み合わせシナリオの保存を要求されます。 クリックしてください あり ボタンまたは いいえ 必要に応じてボタンを押します。

これまでのところ、複数のワークシートまたはワークブックから指定されたすべての範囲がコピーされ、新しいワークブックに貼り付けられています。


デモ:XNUMXつのワークシートから選択した複数の範囲をコピーする

デモ:多くのワークブック/ワークシートから選択した複数の範囲をコピーします


Kutools for Excel には、Excel 用の 300 以上の便利なツールが含まれており、30 日間制限なく無料で試すことができます。 今すぐダウンロードして無料トライアル!

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (14)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
1、5,6,10、XNUMX、XNUMXのような行を選択したいと思います。 では、どうすればこれらの行をコピーできますか?
このコメントは、サイトのモデレーターによって最小化されました
この場合、行を選択して通常どおりにコピーできます。
このコメントは、サイトのモデレーターによって最小化されました
セルa1、e5、g2など(同じ列に1000個を超えるセル)をコピーして、b1、f5、h2(同じ行の次の列に直接)に貼り付けるにはどうすればよいですか。
このコメントは、サイトのモデレーターによって最小化されました
複数の範囲をコピーするオプションの上記の説明が非常に役立ちました-ありがとう! 'clipboard'オプションを使用して、複数の行をコピーしました。 連続する行の各グループを選択してコピーし、次に進んで次の行または連続する行のグループを選択してコピーする必要がありました。しかし、この後は簡単に、新しいシートなど、貼り付けたい場所に移動します。クリップボードから[すべて貼り付け]をクリックすると、すべての行がギャップなしでそこにコピーされます。 まさに私が欲しかったもの-ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとうSOOOOOO-なんて素晴らしいサイト
このコメントは、サイトのモデレーターによって最小化されました
クリップボードのタスクプレーンを開いている場合は、ctrl + Cを使用して複数の行をコピーし、Excel2007を使用してcrtl+Vで順番に貼り付けることができることがわかりました。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、コピーしたセルを別のシートに貼り付けることができるようにコードを調整することは可能ですか? これを試みると、エラーメッセージ「400」が表示されます。 Office 2010を使用しています。また、空の行を削除するようにコピーすることはできますか? 私は大きなドキュメントを持っていて、コピーされていない行が何百もあるセルをコピーしています。 これにより、出力がかなり大きくなります。
このコメントは、サイトのモデレーターによって最小化されました
コードをありがとう、完璧に動作します。 Excel内のこの奇妙な機能の欠如は、過去に何度も私を困惑させてきました。 通常、最終的には回避する方が早いですが、この場合、4000個の個別に色分けされたセルがあるため、回避には長い時間がかかるため、非常に感謝しています。 スティーブ
このコメントは、サイトのモデレーターによって最小化されました
やあ! 上記と同じVBAコードを使用するにはどうすればよいですか。ただし、単に貼り付けるのではなく、値だけに特別に貼り付けます。 私が値(定数)を入れているテーブルは、すでにフォーマットされており、合計(式)が含まれています
よろしくお願いします!
このコメントは、サイトのモデレーターによって最小化されました
こんにちはカトリーナマナハン、

Microsoft Visual Basic for Applicationsウィンドウを開き、新しいモジュールを作成してください。Ctrlキーを押しながらVキーを押すだけで、VBAコードを直接貼り付けることができます。 コードの前のシーケンス番号は貼り付けられません。
このコメントは、サイトのモデレーターによって最小化されました
やあ。 素晴らしいコード、うまく機能します。 マーケットの行/範囲をXNUMX回だけではなく、複数回挿入/貼り付けできるようにコードを変更することは可能ですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはジェイコブ、
たぶん、Excel用のKutoolsのこのタイトル行の挿入機能はあなたの問題を解決することができます。
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
すばらしい投稿とVBAコードは完全に機能します。 特別な>値を貼り付けるようにコードを変更することは可能ですか? もしそうなら、どのように?
ありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
すばらしいコードですが、単に貼り付けるのではなく、どうすれば値を貼り付けることができるのでしょうか。
おかげで:)
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護