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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルについて教えてください。 一度入力した文字や数字を誤って削除や変更しないために、削除や変更を 3 2022/10/30 10:36
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) Excelの1つのセルにそれぞれ文字+数字が入力されていて、 数字のみ抽出して合計したいです。(合計 4 2023/03/16 23:44
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- その他(ソフトウェア) ソースネクストアプリをインストールし、製品登録で半角英数字が入力できない 5 2022/07/03 22:44
- その他(IT・Webサービス) Excelについて質問です。 https://ameblo.jp/saigakizaemon ent 1 2022/10/18 16:21
- 数学 円周率について。 3 2023/01/26 15:10
- Excel(エクセル) Excel>マクロ>特定のセルで同じ情報が登録されている行を1行にまとめたい(文字連結) 6 2023/01/05 16:30
- Excel(エクセル) 【エクセル】並び替えからの並び替え方法 7 2022/07/22 09:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel ウインドウ枠の固定をす...
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
Excel グラフのプロットからデ...
-
[EXCEL]ボタン押す→時刻が表に...
-
特定の文字がある行以外を削除...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excel2007で、指定範囲の行高さ...
-
エクセルVBAのEntireRow.Hidden...
-
EXCELマクロを使い、空白行では...
-
エクセルで昨日までの日付デー...
-
エクセルのマクロで意図しない...
-
セルではなく行や列、シート全...
-
エクセル マクロで数値が変っ...
-
【EXCEL】連続データの個数を抽...
-
エクセル マクロ等を利用した各...
-
エクセル 上下で列幅を変えるには
-
【マクロ】book1からbook2への...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
結合されたセルをプルダウンの...
-
[EXCEL]ボタン押す→時刻が表に...
-
excel 小さすぎて見えないセル...
-
AのセルとB行を比較して、一致...
-
エクセル マクロで数値が変っ...
-
エクセル 上下で列幅を変えるには
-
excelのデータで色つき行の抽出...
-
Excel グラフのプロットからデ...
-
エクセル2016で時間を入力して...
-
VBAで色の付いているセルの行削除
-
特定の文字がある行以外を削除...
-
連続データが入った行の一番右...
-
エクセルVBA 最終行を選んで並...
-
エクセルのセルに指定画像(.jpg...
-
エクセルで昨日までの日付デー...
-
エクセルマクロで偶数行(又は...
-
A1に入力された文字列と同じ文...
おすすめ情報