[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『同じ文字を含んだセルごとに並べ替えたい』(あああ)
AとBのセル上にセルが並んでいます。Bのセルには○○○-D,○○○-F,○○○-Gとランダムで並んでいるセルがあります。このBに並んでいるセルを-Dとつくものは-Dごとに-Fとつくものは-Fごとに上から詰めて並べ替えたいのです。
この並べ替えるときにはAのセルもBのセルと一緒に動くようにしたいです。
稚拙な文章で分かりにくいかと思いますがどうぞよろしくお願いします。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
その後、C列の値を使って並び替えをすれば良いかと。
(名無し) 2018/06/22(金) 11:55
(あああ) 2018/06/22(金) 13:00
Dだけでなく○○○の部分も入れて抽出できないでしょうか?
ソートする条件として、B列の末尾2文字を使う旨の仕様であると解釈してますが違うのですか?
あとできれば関数だけで自動で並べ替えを行いたいのですが・・・
現在データが入力されているセルとは別のエリアに並び替えた結果を表示させるなら関数でもできそうですがとても重くなりますのでお勧めしません。
あとはマクロを使う手がありますが、こちらは別の方にお願いしたいと思います。
(りょぽりょぽ) 2018/06/22(金) 13:38
ハイフン以降を抽出
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.