位置情報で子どもの居場所をお知らせ

エクセルで、抽出したデータだけを別ファイルにしたい

解決済

  • 質問者：hikari-k
  • 質問日時：
  • 回答数：3件

　エクセルをデータベースソフト的に使っています。

　かりに、第１行～第１００行に、１００（個の）レコードがあるとします。そこに「Ａ列が１であるもの」といった抽出をかけると、２０レコードが表示されました。
　この状態で「ファイル→名前をつけて保存」を行なうと、２０レコードだけからなるファイルが生成される──と思ったら、抽出状態で保存しても、やはり１００レコードなんですね。

　２０レコードだけのファイルをつくるにはどうすればいいでしょうか。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「エクセル 抽出」に関するQ&A： 届いたメールをエクセルに抽出したいです。

さらに表示

「ソフト データベース」に関するQ&A： データベースソフトどれがいい？

A 回答 (3件)

No.2ベストアンサー

抽出したデータをコピーし、新規ファイルに貼りつけで


保存できますが。
    • good
    • 2
    • 件
通報する
この回答へのお礼

　できました！
　ありがとうございました。

通報する
お礼日時：2010/11/17 10:02

No.3

No.2です。



「フィルタオプションの設定」で別シートに抽出できますが、
その都度「検索条件」を入力する必要があり、「元に戻す」がききません。

「オートフィルタ」で抽出し、コピペする方が実用的です。
    • good
    • 1
    • 件
通報する
この回答へのお礼

　コピペでできました。
　ありがとうございました。

通報する
お礼日時：2010/11/17 10:03

No.1

  • 回答者： mitarashi
  • 回答日時：

もし、オートフィルタをお使いでしたら、代わりにフィルタオプションをご使用下さい。


次がポイントですが、
抽出先のブックの、抽出先のシートがアクティブな状態から、フィルタオプションの設定を開始してください。
（ここを誤るとエラーメッセージが出て、抽出されません）
抽出先／指定した範囲に、抽出先ブック・シートのセルを設定すると、
抽出されたデータだけがコピーされます。
抽出条件は、抽出先ブックの別シートに設定するなり、抽出元のブックに置くなりして下さい。
フィルタオプションは解説サイトが多々あります。下記は検索で最初の方に出てきたものです。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filte …
    • good
    • 0
    • 件
通報する
この回答へのお礼

　さっそくのご回答ありがとうございます。
　オートフィルタを使っています。
　教えていただいた方法は、心の準備！？が必要そうなので、時間をつくってから、チャレンジしてみます。

通報する
お礼日時：2010/11/17 10:02

このQ&Aに関連する人気のQ&A

「エクセル 抽出」に関するQ&A： エクセルで重複しているデータの抽出のしかたを教えてください。

さらに表示

「ソフト データベース」に関するQ&A： ファイルメーカーとアクセスのちがいについて

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するQ&A

関連するカテゴリからQ&Aを探す

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

Q質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExel VBA　別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列　　　　 B列　　　　　C列　　　　　　
商品名　　商品番号　　コード
モータ　　U-1325-L　　
ホルダ　　R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル（B列のコード）の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
　　Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列　　　　 B列　　　　　C列　　　　　　
商品名　　商品番号　　コード
モータ　　U-1325-L　　
ホルダ　　R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
　Application.ScreenUpdating = False
　Dim I As Long
　Dim xlBook
　Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
　I = 2
　Do While Range("A" & I).Value <> ""
　　ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
　　I = I + 1
　Loop
　xlBook.Close
　Application.ScreenUpdating = True
　MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
　Application.ScreenUpdating = False
　Dim I As Long
　Dim xlBook
　Set xlBook = Workbooks....続きを読む

他の回答も見る

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列>　<B列>　<C列>
7/1　りんご　100円
7/2　ぶどう　200円
7/2　すいか　300円
7/3　みかん　100円

このような表があって、100円を含む行をそのままの形で、
別のセル（同じシート内）に抜き出したいのですが。

7/1　りんご　100円
7/3　みかん　100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は５００行までとしていますが、必要に応じて変更して下さい

他の回答も見る

Qエクセルで抽出したデータを別シートにコピーしたいです

エクセル2003を使用しています。
例えば、以下のような表があります。

　ＡＢＣ
１あ10
２い15
３あ20
４

A列が条件となり、たとえば「あ」のデータだけ抽出して、そのデータを別シートにコピーします。
同じく「い」だけを抽出して、また別のシートにコピーします。
いままでは、オートフィルタで抽出して自分でコピーをして貼り付けしていましたが、日々データが次の行に追加になるので、毎回オートフィルタしてコピーするのは大変です。
関数か、マクロかVBAを使ってする方法はありますでしょうか。
できれば日々追加になるデータのみをすでにある別シートの前日までのデータの下に追加できるようになればいいと思うのですが。
知識が乏しくできません・・・
よろしくお願いいたします。

Aベストアンサー

抽出したい条件は全てＧ列に縦に列挙してください。そして、その条件で抽出したデータをコピーしておくワークシート名をＨ列に入力します。
（Ｅ２のセルにはＧ列で列挙した抽出条件が順次入力されるセルです。）抽出結果のデータはＨ列で指定したワークシートにそれぞれあるはずです。

他の回答も見る

QエクセルＶＢＡでフィルタ抽出部分のみのコピー

エクセルＶＢＡで売上帳を作成していますが、オートフィルタでデータ抽出した後、表示されている行のみをコピーして別シートに貼りつけるにはどうすればよいのでしょう？

別シートは指定したセルに値のみの貼り付けをしたいと思っています。

宜しくお願いします。

Aベストアンサー

こんにちは
マクロの記録で作成した一例です。コメントを読んで、適当にアレンジして下さい。

Option Explicit
Sub SampleMacro1()
'
' SampleMacro1 Macro
' マクロ記録日 : 2009/3/13
'
　'フィルター部分
　Selection.AutoFilter Field:=1, Criteria1:="=ほげほげ", Operator:=xlAnd
　'可視セルの選択
　Selection.SpecialCells(xlCellTypeVisible).Select
　'選択範囲のコピー
　Selection.Copy
　'コピー先のシート＆セル選択
　Sheets("Sheet2").Select
　Range("A1").Select
　'ペースト
　ActiveSheet.Paste
　'コピー元シートに戻りコピー状態解除
　Sheets("Sheet1").Select
　Application.CutCopyMode = False
　Range("A1").Select
End Sub

外してたら、ごめんなさい

こんにちは
マクロの記録で作成した一例です。コメントを読んで、適当にアレンジして下さい。

Option Explicit
Sub SampleMacro1()
'
' SampleMacro1 Macro
' マクロ記録日 : 2009/3/13
'
　'フィルター部分
　Selection.AutoFilter Field:=1, Criteria1:="=ほげほげ", Operator:=xlAnd
　'可視セルの選択
　Selection.SpecialCells(xlCellTypeVisible).Select
　'選択範囲のコピー
　Selection.Copy
　'コピー先のシート＆セル選択
　Sheets("Sheet2").Select
　Range("A1").Select
　'ペース...続きを読む

他の回答も見る

Qエクセルで複数の条件を抽出し自動的に別シートに反映する方法を教えてください。

こんばんは。教えてください。

元データ（sheet1）を更新するたび
2つの条件にあったデータを
別シートに自動的に抽出したいので
適した関数がありましたら教えてください。



◇シート１◇ ※元データ
　A 　　　　 B 　　　 C 　　　 D 　　　 F
1　氏名　役職　部署　年齢　移動時期　　　　　
2　山田　社員　開発　45　　未調整
3　田中　社員　人事　42　　4/1～
4　鈴木　派遣　企画　30　　
5　高橋　役員　人事　50　　未調整
6　坂野　社員　企画　33　　未調整　　
7　井上　派遣　企画　29　　未調整

◇シート２◇　※部署が人事で移動時期が未調整の人のみ抽出
　A 　　　　 B 　　　　C 　　　 D 　　 F
1　氏名　役職　部署　年齢　移動時期　
2　高橋　役員　人事　50　　未調整


補足
・元データ（シート１）はこれからもデータを追加するので
　その度、シート２、シート３もそれぞれ自動で反映されるようにした　いです。

・マクロ、VBAは知識がないので
　関数で作成したいです。

・できるだけエラー（#N/Aなど）表示されないようにしたいです。

説明が不十分で伝わりにくいかと思いますが
よろしくお願いします。

こんばんは。教えてください。

元データ（sheet1）を更新するたび
2つの条件にあったデータを
別シートに自動的に抽出したいので
適した関数がありましたら教えてください。



◇シート１◇ ※元データ
　A 　　　　 B 　　　 C 　　　 D 　　　 F
1　氏名　役職　部署　年齢　移動時期　　　　　
2　山田　社員　開発　45　　未調整
3　田中　社員　人事　42　　4/1～
4　鈴木　派遣　企画　30　　
5　高橋　役員　人事　50　　未調整
6　坂野　社員　企画　33　　未調整　　
7　...続きを読む

Aベストアンサー

> 部署を"人事"と"企画"の両方で抽出する条件を追加する

おはようございます、merlionXXです。
Operator:=xlOr, Criteria2:="=企画" と、OR条件で"企画"を加えれば可能です。
一応、各コードの動きに解説もつけておきました。（解説は’でコメントアウトしてますのでこのまま貼り付けてもＯＫです。）

Private Sub Worksheet_Activate() 'このシートがアクティブになったら自動実行
With Sheets("Sheet1") 'Sheet1対して
.AutoFilterMode = False 'オートフィルタ終了（あればエラーになるため）
.Range("A1:E1").AutoFilter 'A1:E1にオートフィルタ設定
.Range("A1:E1").AutoFilter Field:=3, Criteria1:="=人事", Operator:=xlOr, Criteria2:="=企画" '左から3つ目のフィルタを"人事"と"企画"のOR条件で抽出
.Range("A1:E1").AutoFilter Field:=5, Criteria1:="未調整" '左から5つ目のフィルタを"未調整"で抽出
.Range(.Range("A1"), .Range("A1").SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Range("A1") 'A1から最終セル範囲の可視セルをこのシートのA1以降に貼り付け
.AutoFilterMode = False 'オートフィルタ終了
End With 'Sheet1に対する記述おわり
End Sub

> 部署を"人事"と"企画"の両方で抽出する条件を追加する

おはようございます、merlionXXです。
Operator:=xlOr, Criteria2:="=企画" と、OR条件で"企画"を加えれば可能です。
一応、各コードの動きに解説もつけておきました。（解説は’でコメントアウトしてますのでこのまま貼り付けてもＯＫです。）

Private Sub Worksheet_Activate() 'このシートがアクティブになったら自動実行
With Sheets("Sheet1") 'Sheet1対して
.AutoFilterMode = False 'オートフィルタ終了（あればエラーになるた...続きを読む

他の回答も見る

Q複数のエクセルファイルからデータ抽出とまとめる方法について。

500のエクセルファイルがあり、それぞれのエクセルデータのＡ２からＦ２までのデータのをまとめた一覧表（１行目は、１枚目のエクセルファイルのＡ２－Ｆ２、２行目は２枚目のエクセルファイルの・・・、という感じでです）のを、新しいエクセルファイルもしくはテキストなどにでも手早く作れる方法をご存知の方、ご教授ください。コピペでやっていますが嫌になってしまいました。。マクロも触っては見たのですが、２枚目のエクセルファイルを２行目に、３枚目のエクセルファイルを３行目になどの方法の解決は思いつかず、挫折しました。よろしくお願いいたします

Aベストアンサー

対象のフォルダをｃドライブの「sample」とした場合で回答します。
新規エクセルブックのシート名タブを右クリックし「コードの表示」
右側のエディタエリアに下記コードを貼り付け、実行して下さい。
Ｇ列にファイル名が入るようになっています。不要であれば
Cells(rIdx, 7).Value = fName
を削除して下さい。


Sub getA_F()
Const myPath As String = "c:\sample\"
Dim rIdx As Long
Dim fName As String
fName = Dir(myPath & "*.xls")
Do Until fName = ""
Workbooks.Open Filename:=myPath & fName
rIdx = rIdx + 1
Me.Range(Cells(rIdx, 1), Cells(rIdx, 6)).Value = ActiveSheet.Range("A2:F2").Value
Cells(rIdx, 7).Value = fName
Windows(fName).Close
fName = Dir
Loop
End Sub

対象のフォルダをｃドライブの「sample」とした場合で回答します。
新規エクセルブックのシート名タブを右クリックし「コードの表示」
右側のエディタエリアに下記コードを貼り付け、実行して下さい。
Ｇ列にファイル名が入るようになっています。不要であれば
Cells(rIdx, 7).Value = fName
を削除して下さい。


Sub getA_F()
Const myPath As String = "c:\sample\"
Dim rIdx As Long
Dim fName As String
fName = Dir(myPath & "*.xls")
Do Until fName = ""
Workbooks.Open ...続きを読む

他の回答も見る

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(？)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか？
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします！

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む

他の回答も見る

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート１のC１に５を打ち込んだら、シート２のD２にシート１で打ち込んだ５が自動で表示される。

また１列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

１．１つのセルだけの場合
例）シート１のC１に５を打ち込んだら、
　　シート２のD２にシート１で打ち込んだ５が自動で表示される

⇒シート２のD2のセルをアクティブにして「=」を入力
　した後、シート１のC1をクリックする。
　そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
　表示されるようになります。

２．1列全てコピーしたい場合。
　　コピー＆リンク貼り付けを使うと便利です。

例)例）シート１のC１～C5に何かを入力したら、
　　シート２のD2～D7にシート１で打ち込んだものが自動で表示される

　　シート1にあるコピー元のセルを範囲選択して、
　　シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
　　をクリックします。

　　そして出てきた小さな画面の左下にある「リンク貼り付け」という
　　ボタンをクリックすると完成です。
　　試してみてください。。

　　念のためにリンク貼り付けを図解しているURLを載せておきます。
　　参考にしてみてくださいね。。
　　http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

１．１つのセルだけの場合
例）シート１のC１に５を打ち込んだら、
　　シート２のD２にシート１で打ち込んだ５が自動で表示される

⇒シート２のD2のセルをアクティブにして「=」を入力
　した後、シート１のC1をクリックする。
　そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
　表示されるようになります。

２．1列全てコピーしたい場合。
　　コ...続きを読む

他の回答も見る

Qある範囲のセルから任意の値を検索して、その隣のセルの値を取得するという関数はありますか？

Excelの関数について質問します。
ある範囲のせるを検索して、その隣のセルの値を取得するという関数を探しています。
なければユーザー定義で作りたいと思っています。
VLOOKUP関数では一番左端が検索されますが、
それをある範囲まで拡張して、
その右隣の値を取得できるようにしたいのです。
どうかお知恵をお貸しください。

Aベストアンサー

●X1セルの値を範囲A1:F200の中から探して、その右隣のセルの値を返す

　=OFFSET(A1,SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))-1,SUMPRODUCT(COLUMN(A1:F200)*(A1:F200=X1)))

※最初のA1はワークシートの左上隅を示すものなので、検索範囲に関わらずA1固定
※SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))　⇒　A1:F200で値がX1と一致するセルの行番号

＞その「ある範囲」の中には検索したい値が入っているセルは１つしかありません。
というのが前提です。複数のセルがHITすると関係ないセルの値が返るので、
場合によっては、IFをかぶせてCOUNTIFで確認した方が良いかもしれません。
　ex.　=IF(COUNTIF(A1:F200,X1)=1,【上記数式】,"えらー")

ちなみに、VBAでやるならこんな感じになるかと。

動作の概要
　【検査範囲】から【検査値】を探し、
　最初にHITしたセルについて、右隣のセルの値を返す。
　ex．　=Sample(X1,A1:F200)

'--------------------------↓ココカラ↓--------------------------
Function Sample(ByVal 検査値 As Variant,ByVal 検査範囲 As Range)
　For Each セル In 検査範囲
　　If セル = 検査値 Then Exit For
　Next セル
　Sample = セル.Offset(0, 1)
End Function
'--------------------------↑ココマデ↑--------------------------

いずれもExcel2003で動作確認済。
以上ご参考まで。

●X1セルの値を範囲A1:F200の中から探して、その右隣のセルの値を返す

　=OFFSET(A1,SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))-1,SUMPRODUCT(COLUMN(A1:F200)*(A1:F200=X1)))

※最初のA1はワークシートの左上隅を示すものなので、検索範囲に関わらずA1固定
※SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))　⇒　A1:F200で値がX1と一致するセルの行番号

＞その「ある範囲」の中には検索したい値が入っているセルは１つしかありません。
というのが前提です。複数のセルがHITすると関係ないセルの値が返るので、
場...続きを読む

他の回答も見る

Qフィルタしたセルのコピーをフィルタしたセルに貼付

質問番号：2467654で似たようなことを希望した方がいて、

【フィルタしたセルをコピーし、別シートのフィルタしたセルに貼り付けたいのですが、
別シートに貼り付けた時見えなくなっているセルにもコピーデータが張り付いてしまいます。】


という質問に対してベストアンサーが

【Ｃｔｒｌキーを使用すれば、できますよ。
（例）
Ａシートのコピーしたい部分を選択し、Ctrl＋右クリックショートカットからコピーをクリックします。
Ｂシートの貼り付けたい部分にカーソルを持っていき、Ctrl＋貼付…】

となっていて「できました」！といわれているのですができません。
これ本当にできますか？

違う部分も取り込んでしまうのですが…
フィルタをかけているのが他の列だとできないのでしょうか。

（例）
A　B　C　←列
あ　１　イ
い　２　ロ
う　３　ハ
え　４　ニ
お　５　ホ

の場合に、フィルタで　あ　うの行を選んで　１　３　を　D列にペーストし、
あ１イ１　や　う３ハ３　をつくりたい場合に　あ１イ１は良いですが、い２ロ３　ができてしまうのです。



ちなみに以下のような回答もありましたが、これも「フィルタしたセルに貼り付け」はできませんでした。。
バージョンはエクセル2003です。

可視セルを選択してから、「コピー」→「貼り付け」を行うと、可視セルだけが貼り付けされます。

以下は、その手順です。
1) コピーするセル範囲を選択します。
2) 「編集」→「ジャンプ」→「セル選択」をクリックします。
3) 表示される画面で、「可視セル」にチェックを入れ「OK」を押します。可視セルだけが選択されます。
4) その後、コピーから貼り付けで、可視セルだけが貼り付けされます。
http://office.microsoft.com/ja-jp/assistance/HP052014731041.aspx

セルの選択コマンドから操作する方法もあります。
http://www.h3.dion.ne.jp/~fukusima/waza/ura124.html

参考URL：http://office.microsoft.com/ja-jp/assistance/HP052014731041.aspx,http://www.h3.dion.ne.jp/~fukusima/waza/ura124.html

質問番号：2467654で似たようなことを希望した方がいて、

【フィルタしたセルをコピーし、別シートのフィルタしたセルに貼り付けたいのですが、
別シートに貼り付けた時見えなくなっているセルにもコピーデータが張り付いてしまいます。】


という質問に対してベストアンサーが

【Ｃｔｒｌキーを使用すれば、できますよ。
（例）
Ａシートのコピーしたい部分を選択し、Ctrl＋右クリックショートカットからコピーをクリックします。
Ｂシートの貼り付けたい部分にカーソルを持っていき、Ctrl＋貼付…】

となって...続きを読む

Aベストアンサー

フィルタしたセルのコピー貼り付けに関しては、リンクで紹介されているものを含めて不正確な情報が多いように思います。

基本的に、フィルタしたデータは、非表示にしたデータと異なり、選択範囲の行のみクリップボードにコピーされます（すなわち、Ctrlキーを押しながら、縦にとびとびにセルを選択した状態と同じわけです）。

一般に、とびとびの行を選択してコピーしたセルを貼り付けると、行が詰められて貼り付けられます。
したがって、フィルタモードの場合はジャンプダイアログから可視セルを選択しないでも（まったくこの操作の必要はありません）、無条件に可視セルが貼り付けられます。

一方、フィルタモードではなく、行を非表示にしたシートでは、セル範囲を選択すると、可視セル以外のセルも選択されるので、可視セルだけを貼り付けたい場合は、ジャンプから可視セルを選択する必要があるわけです。

これらのクリップボードのデータをフィルタしたシートに貼り付けるときは、とびとびではなく一塊のデータとして貼り付けられるので、モードにかかわらず、必ず非表示セルにも貼り付けられます（すなわち、とびとびのセルに貼り付ける方法はありません）。

一方、フィルタモードでオートフィル操作を行うと通常とは異なり、連続データは入力できず（コピーのみ）、さらに表示セルだけを対象とします。

これを利用すれば、フィルタした行だけに同じ値を入力することができます。

例えば、フィルタした状態であるセルにデータを入力し、下方向にオートフィルすれば、その値が表示セルだけに「コピー」されます（非表示行にはデータが入力されません）。

例示のデータのように、フィルタしたB列のデータをD列に入力したい場合は、C列を非表示にしてから（列が飛んでいるとオートフィルができないため）、B列のフィルタされたセルを選択して、右方向にオートフィルしてください。

これでC列を再表示して、フィルタモードを解除すればフィルタされたデータだけにデータをコピーすることができます（オートフィル操作ができない別シートには適用できません）。

フィルタしたセルのコピー貼り付けに関しては、リンクで紹介されているものを含めて不正確な情報が多いように思います。

基本的に、フィルタしたデータは、非表示にしたデータと異なり、選択範囲の行のみクリップボードにコピーされます（すなわち、Ctrlキーを押しながら、縦にとびとびにセルを選択した状態と同じわけです）。

一般に、とびとびの行を選択してコピーしたセルを貼り付けると、行が詰められて貼り付けられます。
したがって、フィルタモードの場合はジャンプダイアログから可視セルを選択しないで...続きを読む

他の回答も見る
ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報