エクセルで質問です

質問

いつもすいませんが教えて下さい。
例えば　Ａ列の４行目～１６行目に空白と数値がランダムにはいっています。　これをＢ列の２行目から空白を除いて、数値のみを順番に並び替えるには、マクロが必要なのでしょうか？　、必要ならマクロを教えてください。　できればマクロなしが希望ですが。　よろしくお願い致します。

回答No.8

DoragonFang · ベストアンサー

Ｃ列の４行目に次の式を入れます。

=IF(A4="","",ROW())

で、これを１６行目までコピーします。すると、Ｃ列に、Ａ列に数字のあるところはその行番号、Ａ列のセルが空白の場合には空白という数値の列が出来ます。
あとは、Ｂ２に下記の式を入力し、Ｂ１４までコピーします。

=IF(COUNT($A$4:$A$16)>=ROW()-1,(INDEX($A$4:$A$16,SMALL($C$4:$C$16,ROW()-1))),"")

Ｃ列の番号を小さい順にならべます。
ROW()-1 というのは番号を１番から発生させるためで、この式はＢ２、つまり２行目から始まるため、-1 にして１、２、３、・・・・を得ています。

回答No.7

dejiji-

必要な範囲を選択後、編集→ジャンプ→セル選択で定数を選択→ＯＫで数値の入ったセルが選択されるのでそのセルの上にカーソルを移動し、右クリックでコピー後、別の場所に貼り付ければ出来ませんか。
並び替えは無し、空欄も除去された状態になります。

回答No.6

jindon

配列式です。

B2に

=IF(COUNT($A$4:$A$16)>=ROW(A1),INDIRECT("a"&SMALL(IF($A$4:$A$14<>"",ROW($4:$14)),ROW(A1))),"")

として、Ctrl + Shift + Enter で確定後、下方コピー＋ペースト

A4:A16の値のあるセルをB2から空白を詰めて表示します。

範囲を拡大する場合は、式中すべての$A$4:$A$14と$4:$14を等しくしてください。

回答No.5

imogasi

(データ）A1:A10

2
8
3

4
2

9
5
（関数式）
B2に=IF(ROW(A2)-1<=COUNT($A$2:$A$10),SMALL($A$2:$A$10,ROW()-1),"")
といれて最下行まで式を複写。
（結果）B2:B10
2
2
3
4
5
8
9

回答No.4

catby

こんなのはいかがでしょうか？
まず、C2から下方向に１から順に数値をふります。
（C2=1 C3=2 といった具合に）
そして、
B2には以下の式を書きます。
=SMALL($A$4:$A$16,C2)
これを、下方向にコピーしていけば、小さい順にA列のデータが並びます。

セルにエラーが表示されるのが嫌な場合にはこのように書くと、エラーが表示されません。
=IF(COUNT(SMALL($A$4:$A$16,C2)),SMALL($A$4:$A$16,C2),"")

ちなみに、大きい順番で並べたい場合は、SMALLの代わりにLARGEと書いてください。

補足

すいません　質問の仕方が悪かったですね。
Ａ列の数値の順番は変えたくないのです。　空白だけを抜かして詰めて行きたいのです。　よい知恵をお貸し下さい。

回答No.3

laputart

●試す前にファイルを保存しておいてください。

●A列だけを選択して　データ→並び替え　で
数字だけを上から並び替えることが出来ますが
数字の昇順あるいは降順になってしまいます。

●マクロを使う場合はこんな感じです。

Sub Macro1()
'B列の開始行
J = 2
'A列の４から１６の処理
For I = 4 To 16

Z = "A" & CStr(I)

Range(Z).Select
V = ActiveCell.Value

'空白の場合
If IsEmpty(V) Then

Else
Z = "B" & CStr(J)
Range(Z).Select
ActiveCell.Value = V
J = J + 1
End If

Next I
End Sub
'--------------------
注意　Aの値が文字列などの場合もそのままコピーされます。

回答No.2

Ryo921

この答えでいいのかわかりませんが…
意図を間違えていたらすいません。

まず、対象のA列をB列にコピーします。
そして、B列を選択します。
それから、メニューバーのデータ(D)の中から
並び替え(S)を選択して、並び替えを行えば、
順番に並ぶと思います。

参考になれば、幸いです。

回答No.1

kaekaekaede

A4～A16をコピーし、B2に貼り付け、並び替えを行ってはどいうでしょうか？