エクセル 空白を無視して並び替える方法を教えてください。
こんにちわ。
下記のようにしたいのですが、方法が思いつきません。ぜひアドバイスをお願いします。
例
A B C D E
1 あああ 空白 いいい ううう 空白
2 空白 えええ 空白 おおお かかか
3 ききき 空白 くくく 空白 けけけ
このように空白がところどころに混ざっている状況で
F G H
1 あああ いいい ううう
2 えええ おおお かかか
3 ききき くくく けけけ
のように空白を除き並び替えたいです。
私の頭で思いつかなかったため、アドバイスをお願いします。
今回はできればマクロを使用しないで行いたいです。
ちなみに使用しているのはOffice2003です。
No.7
- 回答日時:
適当な列(ここでは仮にZ列)を作業列として使用し、
まずはZ1セルに次の数式を入力して下さい。
=IF(COUNTIF($A1:$E1,"><")=0,"",SUBSTITUTE("(株)(有)"&$A1&"(株)(有)"&$B1&"(株)(有)"&$C1&"(株)(有)"&$D1&"(株)(有)"&$E1&"(株)(有)","(有)(株)",))
次に、Z1セルをコピーして、Z2以下に貼り付けて下さい。
次に、F1セルに次の数式を入力して下さい。
=IF($Z1="","",MID($Z1,3,FIND("(株)(有)",$Z1,2)-3))
次に、G1セルに次の数式を入力して下さい。
=IF(3+SUMPRODUCT(LEN($F1:F1)+2)>LEN($Z1),"",MID($Z1,3+SUMPRODUCT(LEN($F1:F1)+2),FIND("(株)(有)",$Z1,3+SUMPRODUCT(LEN($F1:F1)+2))-3-SUMPRODUCT(LEN($F1:F1)+2)))
続いて、G1セルをコピーして、H1~J1の範囲に貼り付けて下さい。
次に、F1~J1の範囲をコピーして、同じ列の2行目以下に貼り付けて下さい。
以上です。
No.6
- 回答日時:
No.5です!
たびたびごめんなさい。
E列まで元データがあるのを勘違いしていました。
F1セルの数式を
=IF(COUNTA($A1:$E1)<COLUMN(A1),"",INDEX($A1:$E1,SMALL(IF($A1:$E1<>"",COLUMN($A$1:$E$1)),COLUMN(A1))))
(前回同様配列数式になります。)
としてJ1セルまでコピーしてください。
どうも何度も失礼しました。m(__)m
No.5
- 回答日時:
こんにちは!
簡単は方法はすでに回答が出ていますが、
関数での方法をご希望のようなので・・・
質問通りにデータはD列の4列をF列以降に表示させるとします。
F1セルに
=IF(COUNTA($A1:$E1)<COLUMN(A1),"",INDEX($A1:$E1,SMALL(IF($A1:$E1<>"",COLUMN($A$1:$E$1)),COLUMN(A1))))
これは配列数式になってしまいますので、この画面からコピー&ペーストしただけではエラーになると思います。
F1セルに貼り付け後、F2キーを押す、またはF1セルをダブルクリック、または数式バー内で一度クリックします。
編集可能になりますので、Shift+Ctrlキーを押しながらEnterキーで確定します。
数式の前後に{ }マークが入り配列数式になります。
このF1セルをI1セルまでオートフィルでコピーした後に下へコピーすると希望に近い形にならないでしょうか?
以上、参考になれば良いのですが・・・m(__)m
No.4ベストアンサー
- 回答日時:
一例です。
F1に以下の数式を貼り付け→shift+ctrl+enterキーを同時押下→縦横にコピー
=IF(COUNTA($A1:$E1)>=COLUMN(A1),INDEX($A1:$E1,SMALL(IF($A1:$E1<>"",COLUMN($A1:$E1),999),COLUMN(A1))),"")
No.3
- 回答日時:
該当するセル範囲をがばっと選択して、「編集」メニューからジャンプ→セル選択→空白セルでOK。
選択されたセルのどこかにカーソルを置いて、右クリックで削除。オプションで「左に詰める」を
選んでOKすれば、お望みの通りになりませんか?
ただし、データ量が多すぎる場合は、フリーズする可能性があるので、そのときは分割して
やってみてください。
データの左端、下端から分割して実行するのがいいと思います。
No.2
- 回答日時:
並べ替えというか、空白詰めですね。
ファイル~名前を付けて保存
ここでファイルの種類を「csv」にします。
保存が終わったら、ファイルを閉じます。
テキストエディタ(メモ帳など)で、いまのCSVファイルを開きます。
編集~置換(違う場合もあります)で、
置換前 「,,」
置換後「,」
で、全て置換を実行します。空白が連続する場合は、置換候補が無くなるまで繰り返し実行します。
行の先頭が「,」の場合には、正規表現に対応したテキストエディタなら置換できますが、わからなければ取りあえず直接編集して下さい。
(Excelの並び替えなどで、あらかじめ先頭が空白のセルを消しておくのもいいかも)
上書き保存してExcelで開くと、空白が抜けたものになっています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの表でダブりを解消する方法を、教えてください。 5 2023/04/12 12:11
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) 列の複数ある空白セルを飛ばして、セルに並べて表示したい 3 2023/02/12 16:49
- Excel(エクセル) セルに入力があれば表示させるには? 3 2023/05/14 22:08
- Excel(エクセル) エクセルの関数を教えてください。② 9 2023/05/25 15:28
- Excel(エクセル) 特定文字(数字)で行挿入、挿入された行で合計したい 2 2023/03/13 14:30
- 財務・会計・経理 経理仕訳について教えていただきたいです。 ※発生仕訳必須 1月分給与(1/1−1/31分)に12月の 1 2023/02/24 16:16
- Excel(エクセル) エクセル データの入力規制について 3 2022/03/30 17:16
- Excel(エクセル) エクセルで、対象セルが10時までと、空白なら空白をそれ以外は、対象セルから10時を引いた時間を算出す 1 2023/04/13 08:17
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセル2003で並べ替えする場合で、空白行を先頭ではなく末尾に表示し
Excel(エクセル)
-
エクセルの並び変えで、空白セルを一番上にもってくる方法を教えてください。
Excel(エクセル)
-
日付を昇順で並び替えし、空白は最後にしたいです。
その他(データベース)
-
-
4
エクセルVBA 最終行を選んで並び替え (空白セルを一番上に表示したい)
Excel(エクセル)
-
5
空白セルのあるエクセル表の並び替え
Excel(エクセル)
-
6
エクセルで0を除いて昇順に並べ替えできますか
Excel(エクセル)
-
7
excelで、空白を除いてデータを抽出する方法について
Excel(エクセル)
-
8
エクセルVBA 最終行を選んで並び替え
Excel(エクセル)
-
9
入力後に日付順になるように自動で並び替えしたいのです。
Excel(エクセル)
-
10
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
11
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
12
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
13
『エクセル』特定の文字を無視した並べ替えをするには?
Excel(エクセル)
-
14
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
15
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
-
16
条件付き書式で最終行に線を引きたい
Excel(エクセル)
-
17
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
18
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19
Excelで数式の入っているセルを空白と認識させたい
Excel(エクセル)
-
20
Enterキーでマクロを起動さす。
その他(ソフトウェア)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
はがきについて。
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
【関数】先頭だけにある、半角...
-
Excel ピボットテーブルで日付...
-
Excelのpivotについて質問です
-
時間によってファイル名が変わ...
-
エクセル 白黒印刷で白線を印刷...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
WPS OFFICEでの縦書きについて
-
Excelのチェックボックスの使い...
-
エクセルの条件付き書式につい...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報