数字を横一列に並べる

質問

すいません。画像を添付するの忘れました。J,K,L列のように行ごとに数字を横一列に並べたいです。慣れないもので。すいません。(>_<)

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.2

bunjii · ベストアンサー

J2セルへ次の数式を設定して右と下へ必要数コピーします。
=IF(COUNT($B2:$H2)>=COLUMNS($B2:B2),INDEX($A2:$H2,SMALL(INDEX(ISNUMBER($B2:$H2)*COLUMN($B2:$H2)+NOT(ISNUMBER($B2:$H2))*COLUMN($I2),0),COLUMNS($B2:B2))),"")
この数式は画像で提示の範囲で組み込んでいますのでセル範囲が変更されるときは実情に合わせてセル範囲を修正してください。
尚、数式の確定時にEnterキーのみの打鍵で問題ありません。

お礼

上手く行きました。回答ありがとうございます。

回答No.3

imogasi

VBAを使ったら簡単。
データ範囲A-H列を他の列にコピー貼り付け。元のデータを壊さないため。
そのセル範囲を範囲指定しておいて、下記を実行。
ーー
標準モジュールに
Sub test01()
Selection.Replace What:="●", Replacement:="", LookAt:=xlPart, MatchCase:=False
With Selection.SpecialCells(xlCellTypeBlanks)
.Delete Shift:=xlToLeft
End With
End Sub
●を空白に置換。空白セルを、セル的に、左詰めする。
２段階、２行で終わり。
結果
L,M,N列に
10 15 19
9 15 18
6 35 36
4 12 14

お礼

お手数かけました。回答ありがとうございます。

回答No.1

msMike

J2: =IFERROR(INDEX($B2:$H2,SMALL(IF($A2:$G2="●",COLUMN($A2:$G2)),COLUMN(A1))),"")
【お断り】上式は必ず配列数式として入力のこと

お礼

回答ありがとうございます。