A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
次のようにすることでマクロや関数を使わずに抽出し表示させることができます。
黄色のセルといった色にこだわる必要もありません。仮にシート1のP列に平均値が載ったセルが有るとします。
P列を選択したのちに「ホーム」タブの「検索と選択」から「検索」をクリックします。
表示の画面で検索する文字列の窓に =AVERAGE と入力して「すべて検索」をクリックします。
該当するセル番地などの一覧が下方に窓に表示されます。
Shiftキーを押しながら最初の行から最終行までをクリックします。エクセルの画面上では該当のセルが選択状態になりますので右クリックして「コピー」を選択します。
その後にシート2のA1セルを選択してから右クリックして「選択のオプション」から「リンク貼り付け」を選択して貼り付けを行います。
シート1に戻ってEscキーを押してから「検索と置換」の画面を消します。
シート2のA1セルの数式バーには例えば =Sheet1!$P$10 などのように表示されますね。
シート1での該当の行を抽出して表示できるようにするためには、例えばシート1のA列からすべての列を抽出して貼り付けできるようにするためにはA1セルの式を例えば =Sheet1!A$10のように変換することが必要です。
そのために次の操作を行います。
シート2のA列を選択したのちに「検索と選択」から「置換」をクリックします。
検索する文字列の窓には $P と入力し、置換後の文字列の窓には A と入力し、「すべて置換」をクリックします。
この操作によって例えばA1セルの式は =Sheet1!A$10 のように変わります。この式を右横方向にドラッグコピーすることでシート1の10行目のA列から横の列のデータが表示されることになります。
P列から横の列を表示したいのでしたら 置換後の文字列の窓には P と入力すればよいでしょう。
実際には例えばA100セルまでデータが有るとしたらA1セルからA100セルまでを選択してからA100セルの右下隅の■をクリックして右横方向にドラッグコピーすれば該当するすべての行のデータが表示されることになりますね。
No.4
- 回答日時:
Excel2007以降であれば、フィルタを使えば、黄色のみ表示出来ます。
色のある列を選択→データ→フィルタを選び、1行目の▼より、色フィルタ→黄色を選びます。
これを、ホーム→検索と選択→条件を選択してジャンプ→可視セルを選びOKし、コピーして、新規シートに貼り付けます。
Excel2003までであれば、以下のマクロでできます。
Sub macro()
Dim C As Range
For Each C In Range("P1:P" & Range("P" & Rows.Count).End(xlUp).Row)
If C.Interior.ColorIndex <> 6 Then
C.EntireRow.Hidden = True
End If
Next C
Cells.SpecialCells(xlCellTypeVisible).Copy
Worksheets("Sheet2").Range("A1").PasteSpecial xlPasteValues
Rows.Hidden = False
End Sub
No.3
- 回答日時:
時間掛かりそう...
Sub CopyRows()
Const xSheet = "Sheet1" '入力(データ)シート
Const xStep = 25 '抽出の行間隔
Const xTop = 2 '入力開始行
Const wTop = 2 '出力開始行
Dim xEnd As Long
Dim jj As Long
Dim kk As Long
'出力はアクティブシート
xEnd = Worksheets(xSheet).Range("A65536").End(xlUp).Row
kk = wTop
For jj = (xStep + XTop - 1) To xEnd Step xStep
Worksheets(xSheet).Rows(jj).Copy
' Rows(kk).PasteSpecial Paste:=xlPasteFormulas
Rows(kk).PasteSpecial Paste:=xlValues
kk = kk + 1
Next
End Sub
No.2
- 回答日時:
その対象となる行全体が黄色で塗られているとして、
1. [Ctrl]+[F]検索
2. 書式▼ 書式 パターン 黄色 [OK]
3. [すべて検索] - [Ctrl]+[A]すべて選択(黄色で塗られた行が選択される
4. [閉じる]
5. [Ctrl]+[C]コピー
6. 別シートのA1セルを選んで [Ctrl]+[V]貼り付け
No.1
- 回答日時:
表をまず、新規シートに、形式を選択して貼り付け→値で貼り付けます。
A列を選択し、右クリック挿入で1列、挿入し、
A1のセルに1、A26のセルに2と入力し、
A1:A50まで選択し、下へ5万行までオートフィル
表全体を範囲選択→データ→並べ替え
A列をキーにして、昇順で並べ替えします。
A列に数字がある部分が平均値の行です。
この回答への補足
早々の御解答ありがとうございます。
そんな方法があるとは思いつきませんでした。
ただ折角教えていただいたのに申し訳ありません。
今やってみたのですが、最初のほうは25行づつなのですが、微妙にずれている部分があったようです。。。。。
抽出したい平均値の行の部分は黄色に背景が塗られているのですが、背景が塗られている行だけ抽出するような方法はありませんでしょうか。
表としては現在下記のようになっています。
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 11 1 1 1 1 1
2 2 2 2 2 2 2 2 2 2 2
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1(←ここが平均値で黄色い拝啓)
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 11 1 1 1 1 1
2 2 2 2 2 2 2 2 2 2 2
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1(←ここが平均値で黄色い拝啓)
行はもっと多く、大体25行間隔です。
またA行からではなくP行から始まっているような感じになっています。
MVBをわからないなりに調べてやってみているのですが、エラーがでてしまい下記ような状態でとまっています。
Sub try()
Dim i As Long, j As Long
Dim k As Integer
i = 26
j = 1
For k = 1 To 40
Sheets("Sheet2").Range("P" & Z).Resize(1, 24).Value = _
Sheets("Sheet1").Range("P" & Z).Resize(1, 24).Value
i = i + 25
j = j + 1
Next
End Sub
度々の質問申し訳ありまえんが、黄色で塗られた部分を抽出する方法ありましたら教えていただけませんでしょうか。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) 最後の12個の修正平均を算出したい。 3 2022/04/30 18:24
- 統計学 母集団分布を平均 μ, 分散 σ2 の正規分布と想定し, 母集団から無作為抽出した標本のデータ(標本 4 2023/01/30 20:25
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- 統計学 風速を1秒刻みで推定する方法 6 2023/03/03 11:58
- Excel(エクセル) エクセルの折れ線グラフで教えて下さい 1 2023/03/05 22:48
- その他(Microsoft Office) エクセルで1行の長いデータを指定の桁数で分割する方法が知りたいです。 4 2022/05/20 21:55
- Excel(エクセル) 電卓は正しいのに エクセルで計算させると間違った答えです。なぜ? 7 2022/08/11 07:04
- Excel(エクセル) エクセルの複写について 4 2022/04/10 01:02
- Excel(エクセル) エクセルの数式を等間隔にオートフィルできるやり方を教えていただきたいです。 実際の作業↓ A3セルに 7 2023/06/05 19:04
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
EXCELで、セル間隔をあけて貼り付けしたい。
Excel(エクセル)
-
【エクセル】数式のセル番地を一定間隔で入れたい
その他(Microsoft Office)
-
excel: 2行ずつ間隔を空けて関数をペーストする方法
Excel(エクセル)
-
-
4
エクセルで1個飛ばしで、一括でコピペする方法は有りますか?
Excel(エクセル)
-
5
[エクセル関数]等間隔に値を取得する方法について教えてください
Excel(エクセル)
-
6
一列に並んでいる大量のデータを10個ずつ平均(A1~A2000まである
Excel(エクセル)
-
7
エクセルで等間隔のセルの抽出
その他(Microsoft Office)
-
8
EXELで複数のとびとびのセルをコピー&ペーストする方法
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
【関数】先頭だけにある、半角...
-
エクセル 白黒印刷で白線を印刷...
-
Excelのチェックボックスの使い...
-
【関数】適切な文字数の数字を...
-
Excelのpivotについて質問です
-
Excel ピボットテーブルで日付...
-
LOOKUP関数を使えばいいのでし...
-
エクセル関数を教えてください
-
エクセルのセルに同じ大きさの...
-
UNIQUE関数が使えないバージョ...
-
excelの不要な行の削除ができな...
-
エクセルで「-0.0」と表示さ...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの関数について教えて...
-
Aというブックの1というシート...
-
【マクロ】シート名を取得する...
-
VBA Private Sub Worksheet_Cha...
-
VBA、Excelのworkbook.open に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報