メインコンテンツへスキップ

Excelで非表示の行をスキップするだけでフィルタリングされたリストにデータを貼り付ける方法は？

ご存知のとおり、フィルタリングされたテーブルリストに値を貼り付けようとすると、非表示の行がスキップされないため、間違った結果が得られます。 たとえば、1つのワークシートがあり、シート2にはフィルターで除外されたデータが含まれ、シート1にはフィルターされたシートXNUMXに貼り付けたいデータが含まれています（次のスクリーンショットを参照）。 Excelでのみフィルタリングされた行にデータを貼り付けることができる関数はありますか？

doc-paste-to-filtered-data-1 doc-paste-to-filtered-data-2

ヘルパー列を使用して、Excelのフィルターされたリストにデータを貼り付けます

Kutools forExcelを使用してExcelのフィルター済みリストにデータを貼り付けます

矢印青い右バブル ヘルパー列を使用して、Excelのフィルターされたリストにデータを貼り付けます

フィルタリングされたリストにデータを貼り付けるには、いくつかのヘルパー列を適用する必要があります。次の手順を実行してください。

1。 まず、をクリックします 且つ > フィルタ フィルタを削除するには、フィルタ列の横にあるセルC1とC2に2、3を別々に入力し、セルC2とC3を選択してから、シート1のデータに対応するセルに塗りつぶしハンドルをドラッグします。スクリーンショットを参照してください。

doc-paste-to-filtered-data-3

2. 次に、をクリックしてデータを再度フィルタリングします 且つ > フィルタ、この例では、シート1から「KTE」をフィルタリングし、この数式を入力します = ROW（） セルD2に入力し、列Dに必要な表示セルにこの数式を入力します。スクリーンショットを参照してください。

doc-paste-to-filtered-data-4 2 doc-paste-to-filtered-data-5

3。 次に、フィルターを再度キャンセルし、列Dでデータを昇順で並べ替えます。すべてのKTEアイテムが一緒に並べ替えられています。スクリーンショットを参照してください。

doc-paste-to-filtered-data-4

4。 次に、シート1のデータA6：B2をコピーして、シート2の範囲A7：B1に貼り付けることができます。

doc-paste-to-filtered-data-4

5。 次に、元のデータの順序を復元する必要があります。列Cをクリックして、データを昇順で並べ替えてください。スクリーンショットを参照してください。

doc-paste-to-filtered-data-4

6。 データの順序が復元されたら、必要に応じて列Cと列Dの内容を削除できます。最後に、必要なデータをフィルタリングでき、フィルタリングされたデータが新しいデータに正常に置き換えられたことを確認できます。

doc-paste-to-filtered-data-4

矢印青い右バブル Kutools forExcelを使用してExcelのフィルター済みリストにデータを貼り付けます

最初の方法は複雑すぎて適用できないため、ここでは便利なツールを紹介します– Kutools for Excelそのと 可視範囲に貼り付けます この機能を使用すると、手間をかけずにデータをフィルタリングされたリストにすばやく貼り付けることができます。

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます.
ダウンロードに移動
30日間の無料トライアル購入
ペイパル/マイコマース

インストールした後 Kutools for Excel、次のようにしてください。

1。 まず、コピーしてフィルターリストに貼り付けるデータ配置を選択します。 そして、 クツール > レンジ > 可視範囲に貼り付けます、スクリーンショットを参照してください：

doc-paste-to-filtered-data-4

2。 そして、 可視範囲に貼り付けます プロンプトボックスが表示されたら、新しいデータを貼り付けるセルまたは範囲セルをクリックします。スクリーンショットを参照してください。

doc-paste-to-filtered-data-4

3。 次に、をクリックします OK ボタンをクリックすると、新しいデータはフィルタリングされたリストにのみ貼り付けられ、非表示の行のデータも保持されます。

（1.）選択した場合 値の貼り付けのみ オプションの場合、値のみがフィルター処理されたデータに貼り付けられます。screesnhotを参照してください。

doc-paste-to-filtered-data-4

（2.）選択した場合 すべて オプションを選択すると、値とフォーマットがフィルタリングされたデータに貼り付けられます。screesnhotを参照してください。

doc-paste-to-filtered-data-4

この[可視範囲に貼り付け]ユーティリティの詳細については、クリックしてください。

矢印青い右バブル Kutools for Excelでのみ、セル値を表示セルまたはフィルター処理されたセルにコピーして貼り付けます。

Kutools for Excel：300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル！

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

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup  |   複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー   |  ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化   |  リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット:  12 テキスト ツール (テキストを追加, 文字を削除する、...）   |   50+ チャート 種類 (ガントチャート、...）   |   40+ 実用的 式 (誕生日に基づいて年齢を計算する、...）   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...）   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...）   |   7 マージ＆スプリット ツール (高度な結合行, 分割セル、...）   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

説明

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (11)
Rated 5 out of 5 · 2 ratings
Liangsi
Liangsi
This comment was minimized by the moderator on the site
It works, thank you. The first method is quiet simple for me even for the table with thousands of rows.
Reply
0
0
Rated 5 out of 5
Ricardo
Ricardo
This comment was minimized by the moderator on the site
Qué gran solución. Lo máximo!
Reply
0
0
Marie
Marie
This comment was minimized by the moderator on the site
Hallo zusammen, ich habe die Version mit den Hilfsspalten soeben ausprobiert und mit ein paar kleinen Änderungen, funktioniert es auch in M365: = REIHE () gibt es nicht mehr, das heißt jetzt: =ZEILE()
Nachdem ich diese Formel eingefügt habe, habe ich (in meiner gefilterten Liste) die Werte, die bei =ZEILE() angezeigt werden farbig markiert. Erst anschließend habe ich wieder den Filter entfernt und die Liste nach der ausgewählten Farbe sortiert. Fertig! So kann man die obersten (farbigen) Zellen nun bearbeiten und Daten einfügen.
Reply
0
0
Saul Flores
Saul Flores
This comment was minimized by the moderator on the site
Muchas gracias, me sirvió mucho. Toda una tarde estaba viendo manera, pero con Kutools for Excel la vida es mas facil
Reply
0
0
Rated 5 out of 5
skyyang
skyyang     Saul Flores
This comment was minimized by the moderator on the site
Hello, Saul,
Glad the Kutools can help you, 😀
Reply
Report
0
0
Tamil
Tamil
This comment was minimized by the moderator on the site
Not working. I tried in Office 2007. I copied range of cell and try to paste into visible cells, the clipboard data deleted but its not pasting. Try to provide solution
Reply
0
0
Lucien
Lucien     Tamil
This comment was minimized by the moderator on the site
A mon niveau c'est pareil, ça ne fonctionne pas. Existe-t-il autre solution ?
Reply
0
0
skyyang
skyyang     Lucien
This comment was minimized by the moderator on the site
Hello, friends
If the above method can not work well, here, you can also use the below VBA code: (Note: Before using the code, you should backup your data, the code doesn't support undo.)
Sub CopyFilteredCells()
	'Updateby Extendoffice
	Dim rng1 As Range
	Dim rng2 As Range
	Dim InputRng As Range
	Dim OutRng As Range
	xTitleId     = "KutoolsforExcel"
	Set InputRng = Application.Selection
	Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type: = 8)
	Set OutRng   = Application.InputBox("Paste Range:", xTitleId, Type: = 8)
	For Each rng1 In InputRng
		rng1.Copy
		For Each rng2 In OutRng
			If rng2.EntireRow.RowHeight > 0 Then
				rng2.PasteSpecial
				Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
				Exit For
			End If
		Next
	Next
	Application.CutCopyMode = False
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
Ari
Ari
This comment was minimized by the moderator on the site
I spent hours trying to solve this until I eventually found this awesome website. Thanks!
Reply
0
0
Pierre
Pierre
This comment was minimized by the moderator on the site
Very helpful and straightforward. I was looking everywhere on the internet and did not find anything. Or tutorials to achieve something else :) Thanks a lot
Reply
0
0
Dylan
Dylan
This comment was minimized by the moderator on the site
YOU. ARE. BAE. AND. THE. GOAT. But seriously thanks so much! I have been looking everywhere for help on this!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations