ＥＸＣＥＬについて

質問

セルA1～Ｎ1に１～２０の数がランダムに入っています。重複はなし
その数を、B1～N1に常に昇順でリンクさせたいのですが、教えてください。

回答No.3

KURUMITO · ベストアンサー

ご質問の意味が分かりませんがA1セルからN1セルにランダムな数値が有って、その数値をA2セルからN2セルに並べて表示させるのでしたらA2セルには次の式を入力して右横方向にN2セルまでドラッグコピーします。

=SMALL($A1:$N1,COLUMN(A1))

お礼

出来ました。ありがとうございました。

補足

申しわけありませんでした。　ＫＵＲＵＭＩＴＯさんが言う通りです。質問が間違っていました。
が・・・・・うまくいきません。もう少し頑張ってみます。

回答No.2

ryo_ky

お門違いの回答をしていましたら、申し訳ございませんが、質問者様の行いたい事は
「A1～N1までの列方向の昇順に並び替えを行いたい」
という事でよろしいでしょうか？

並び替えの方法はB1～N1のセルを選択した状態で「並び替えとフィルター」の「ユーザー設定の並び替え」をクリックします。

そうすると並び替えのウィンドウが開きますので、オプションのボタンをクリックして
「方向」を行単位から列単位に変えます。

そして昇順で並び替えると列単位での並び替えができます。

質問文の２行目の「B1～N1に常に昇順でリンクさせたい」というのはA1～N1の値が何かしらの理由で変わるという事でしょうか？
そうであるなら、開発のタブを表示させて、コマンドボタンを作成します。
作成したコマンドボタンには以下の構文を入力します。

Private Sub CommandButton1_Click()
Range("B1").Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1:N1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("B1:N1")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub

これでこのコマンドボタンをクリックすると並び替えできます。

お礼

ありがとうございます。何分６４歳初心者ですので、質問が、うまくできてないようです。
私の質問は、ryo kyさんの言うとおりでよいのですが，あまりにも難しいです。
申しわけありません。これはあきらめます。

回答No.1

noname#204879

「A1～Ｎ1に１～２０の数がランダムに入ってい」るのに、同じ範囲内の「B1～N1に…」とはどういうこと？
シッカリしてくださいネ！

お礼

申しわけありませんでした。
ありがとうございます。