エクセルの学校：全文検索：Hyper Estraier：並べ替え

Results of 1 - 1 of about 2689 for 並べ替え (0.003 sec.)

[[20180622112226]]: #score: 4561; @digest: fe8617e87005643059802f9f450becdd; @id: 76674; @mdate: 2018-06-22T05:22:54Z; @size: 2545; @type: text/plain; #keywords: ○○○- (25238), 出c2 (7323), 出d2 (6955), 在デ (2906), ○○○ (2594), sortfields (1892), ン以 (1769), search (1753), 名無 (1558), フン (1359), イフ (1236), 手前 (1115), activeworkbook (1070), 金) (843), 2018 (830), 葉足 (726), ハイ (726), て並 (713), 並ん (653), び替 (589), ソー (561), 替え (555), ル上 (545), べ替 (539), 動記 (531), （名 (511), 並び (487), 抽出 (485), 並べ (454), で並 (419), worksheets (399), ダム (398); 『同じ文字を含んだセルごとに並べ替えたい』（あああ）
AとBのセル上にセルが並んでいます。Bのセルには○○○-D,○○○-F,○○○-Gとランダムで並んでいるセルがあります。このBに並んでいるセルを-Dとつくものは-Dごとに-Fとつくものは-Fごとに上から詰めて並べ替えたいのです。この並べ替えるときにはAのセルもBのセルと一緒に動くようにしたいです。稚拙な文章で分かりにくいかと思いますがどうぞよろしくお願いします。＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- 2行目からデータが並んていると仮定して C2のセルに下記数式を貼り付けて、下方向にオートフィル =MID(B2,SEARCH("-",B2),LEN(B2)-SEARCH("-",B2)+1) その後、C列の値を使って並び替えをすれば良いかと。（名無し） 2018/06/22(金) 11:55 ---- C列等にRIGHT関数で右2文字を取り出すだけでも良いかもですね。（???） 2018/06/22(金) 12:00 ---- 回答ありがとうございます。すみませんこれだと○○○-Dの-Dの部分しか取り出せませんでした。あと、○○○-Dや○○○-Fの○○○の中の文字は全て違うものになります。言葉足らずで申し訳ありませんでした。（あああ） 2018/06/22(金) 13:00 ---- 名無しさんや???さんの仰るようにして、C列に "-D","F","-G" と表示させて、A列〜C列を並び替えの対象に選択して、C列でソートすることで解決するのでは? （りょぽりょぽ） 2018/06/22(金) 13:05 ---- -Dだけでなく○○○の部分も入れて抽出できないでしょうか? あとできれば関数だけで自動で並べ替えを行いたいのですが・・・（あああ） 2018/06/22(金) 13:21 ---- >Dだけでなく○○○の部分も入れて抽出できないでしょうか? ソートする条件として、B列の末尾2文字を使う旨の仕様であると解釈してますが違うのですか? >あとできれば関数だけで自動で並べ替えを行いたいのですが・・・現在データが入力されているセルとは別のエリアに並び替えた結果を表示させるなら関数でもできそうですがとても重くなりますのでお勧めしません。あとはマクロを使う手がありますが、こちらは別の方にお願いしたいと思います。（りょぽりょぽ） 2018/06/22(金) 13:38 ---- ハイフンの手前までを抽出 C2=LEFT(B2,SEARCH("-",B2)-1) ハイフン以降を抽出 D2=RIGHT(B2,LEN(B2)-SEARCH("-",B2)+1) 並び替え自動記録したまんまですがこんな感じ Sub Macro1() Range("A2:D10").Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A2:D10") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub （名無し） 2018/06/22(金) 14:22 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201806/20180622112226.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ