No.2ベストアンサー
- 回答日時:
一つの簡便法として、その数字の入っているセルの横のあいているセルに赤の数字の入っている段だけ「1」を入れていく、という方法があります。
こうしておくと、それをキーとして並べ替えも抽出もできますよ。
No.3
- 回答日時:
下のマクロで1列は可能です。
色付きセルの列の先頭セルをアクティブにしてください。
(A列でA3セル以下を処理する時はA3を1クリック)
マクロを実行すると、色付きセル
(文字色ではありません)
の行のみを表示して、他の行を非表示にします。
止まった時はすでにデータがコピーされているので
別のシートなどに移動して貼り付けると
色付き行のみペーストできます。
Sub 着色されているセルのみを表示()
Dim 現在行 As Integer
Dim 現在列 As Integer
Dim 最終行 As Integer
Dim I As Integer
Dim 現在行退避 As Integer
'Dim 色番号 As Integer 'この行と次の行を生かし
'色番号 = ActiveCell.Interior.ColorIndex
現在行 = ActiveCell.Row
現在列 = ActiveCell.Column
最終行 = ActiveCell.SpecialCells(xlLastCell).Row
現在行退避 = 現在行
For I = 現在行 To 最終行
If Cells(I, 現在列).Interior.ColorIndex = xlNone Then
'「<> xlNone」を「=色番号」に修正すると、特定の色のセルのみ非表示に
Cells(I, 現在列).EntireRow.Hidden = True
End If
Next
Cells(最終行 + 3, 現在列) = "1"
Range(Cells(最終行 + 2, 現在列), Cells(最終行 + 3, 現在列)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, _
Criteria1:="=", Operator:=xlAnd, _
Criteria2:="<>"
Cells(最終行 + 3, 現在列) = ""
Range(Cells(現在行退避, 現在列), Cells(最終行, 現在列)).Select
Selection.Copy
End Sub
'戻す場合は下のマクロを実行ください。
Sub すべてを表示()
Selection.AutoFilter
Cells.Select
Cells.EntireRow.AutoFit
End Sub
'複数行は作成に少し時間がかかりますが・・
'マクロを実行するまでの準備の
'説明が必要な場合は書き込みを。
No.1
- 回答日時:
エクセルの基本機能では出来ません。
でもやり方は
http://cgi.fuji.ne.jp/~fj2094/cgi-bin2/wwwlng.cg …
http://oshiete1.goo.ne.jp/kotaeru.php3?q=212717
を参考にして下さい。
ちょっと山は高いです。がんばれ
参考URL:http://cgi.fuji.ne.jp/~fj2094/cgi-bin2/wwwlng.cg …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセル マクロで数値が変っ...
-
特定の文字がある行以外を削除...
-
エクセルのセルに指定画像(.jpg...
-
【Excel関数】UNIQUE関数で"0"...
-
Excel グラフのプロットからデ...
-
VBAで色の付いているセルの行削除
-
Excel2007で、指定範囲の行高さ...
-
Excel ウインドウ枠の固定をす...
-
EXCEL 「最後のセル」のリセット
-
セルの色によって条件文をつけ...
-
完全一致したら代入するマクロ...
-
エクセル 上下で列幅を変えるには
-
excelのデータで色つき行の抽出...
-
アクティブになっている行をマ...
-
excel 同じ番号のデーターを横...
-
電話番号の入力方式が違うデー...
-
Excelでカタカナ・ひらがな・英...
-
エクセルマクロで偶数行(又は...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報