エクセル2000を使用しています。
LOT6データを整理しています。
横は1~43
縦は回数
各々出た所に○印を付け、縦の合計はCOUNTIFで計算しています。
この合計の数字を多いもの順で並び替えをしたいのですが、
列の並び替えは出来るのですが、行だけのの並び替えが出来ません。
どのように行えば出来るのか教えて頂ければ幸いです。
例)
   A10 B10 C10 D10・・・・AQ10
行1  1  2  3  4 ・・・ 43 
行6  3   1  4  2・・・・6
このような時、
AQ10 C10 A10 D10 B10
 6  4  3  2  1 
の様に行6のデータを並び替えをしたいのです。

宜しくお願い致します。

  

A 回答 (2件)

jyon2jpさんの例を使うと


(1)データ部分(1~43の目(?)及び各回数が入力されたセル範囲)を範囲選択します。
(2)メニューバー[データ]-[並べ替え]をクリックします。
(3)「並べ替え」ダイアログボックス左下にある「オプション」ボタンをクリックします。
(4)「方向」欄で「列単位」を選択し、「OK」ボタンをクリックします。
(5)「最優先されるキー」において、回数が入力されている行を選択します。
(6)「OK」ボタンをクリックします。

いかがでしょうか?
    • good
    • 0
この回答へのお礼

早速のご返事痛み入ります。
bisuko1014さんの方法で出来ました。
胸のつかえが取れました。
ありがとうございました。

お礼日時:2006/02/23 12:16

とりあえず、脳ミソ使わないやり方




並び替えしたい数を左から右までマウスドラッグして選択して、右クリックして「コピー」


どっか、関係ない広いところのセルでマウス1回クリック


「編集」→「形式を選択して貼り付け」
で「行列入れ替え」というのがあるので、それをクリック


すると、データが縦に並ぶので、それを上端から下端までマウスドラッグして選択


ソートする


それをまた、さっきと同様に行列入れ替えで、元の場所にコピーする
    • good
    • 0
この回答へのお礼

早速のご返事ありがとうございます。
成る程このような方法があったのですね。
ありがとうございました。

お礼日時:2006/02/23 12:18

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QEXCELで縦から横への並び替え

ある集計結果を並び替えたいのですが、
001  AAA  1位 A店
         2位 B店
002  BBB  1位 A店
         2位 B店
         3位 C店
という結果を
001  AAA  1位 A店   2位 B店
のように並び変えたいのですが、データが非常に多くて、手作業では
大変かと思うので、どなたか助けていただけないでしょうか?
宜しくお願いします。
AAA、BBBは品名で全ての店舗で販売してるわけではないです。
そのため、販売店舗(A店、B店・・・)が品によってバラバラです。
 

Aベストアンサー

こんなんでどうでしょう?
データバックアップ後自己責任で確認してください。

Sub Macro1()

 Dim i, HinmeiNo, Runking

 HinmeiNo = 0
 i = 1

 Do

  If Cells(i, 1) <> "" Then
   HinmeiNo = HinmeiNo + 1
   Runking = 1
   i = i + 1
  Else
   Runking = Runking + 1
   Cells(HinmeiNo, 1 + Runking * 2) = Cells(i, 3)
   Cells(HinmeiNo, 2 + Runking * 2) = Cells(i, 4)
   Rows(i).Delete
  End If

 Loop Until Cells(i, 3) = ""

End Sub

Q縦並びのデータを横並びにしたい【Excel2003】

Excel 2003 でプロレス技のデータを編集しています。以下の例ではプロレスの3技(European Uppercut,Chop, Ear slap)のデータを例として引用しましたが、編集したいデータ元のプロレス技は500以上あり、手で入力していては膨大です。そこで、データ元の記述の規則性を利用して、数値データをExcelの関数を使って抽出したいです。そこでない知恵を絞っているのですが、どういう方法がベストですか?

手順(1)データ元をコピーして、Excelのワークシートに貼り付ける。European Uppercut が A1に、Minimum damage が A2に、.... Chop がA16に、....
(2)セル E2 に数式 =right(A2,2)を入力し、これをオートフィルでE列を埋める。

こうすることで E列は以下のように規則正しく数値を抽出できました。ここからが問題ですが、ここからこのデータを横にしたいのです。つまり、1,15,8,0,20
1,2,8,0,3
1,4,7,0,0
という形で並べ替えたいのです。
ご助言していただけないでしょうか?

1
15
8
0
ve
ng
ve
ge
er
20
Su



op
1
2
8
0
ve
ng
ng
rt
ss
3
Su



ap
1
4
7
0
ve
ng
ng
ss
on
0
Su



以下に抽出したいデータ元の例を挙げます。
====================================================
European Uppercut
Minimum Damage: 1
Maximum Damage: 15
Attack Bonus: 8
Bleeding %: 0
Required Position: Opening Move
Obtained Position: Standing
Suffered Position: Opening Move
1st Ability: Rage
2nd Ability: Berserker
total Ability: 20
Torna Su



Chop
Minimum Damage: 1
Maximum Damage: 2
Attack Bonus: 8
Bleeding %: 0
Required Position: Opening Move
Obtained Position: Standing
Suffered Position: Standing
1st Ability: Head Start
2nd Ability: Lightness
total Ability: 3
Torna Su



Ear Slap
Minimum Damage: 1
Maximum Damage: 4
Attack Bonus: 7
Bleeding %: 0
Required Position: Opening Move
Obtained Position: Standing
Suffered Position: Standing
1st Ability: Tireless
2nd Ability: Pacification
total Ability: 0
Torna Su

Excel 2003 でプロレス技のデータを編集しています。以下の例ではプロレスの3技(European Uppercut,Chop, Ear slap)のデータを例として引用しましたが、編集したいデータ元のプロレス技は500以上あり、手で入力していては膨大です。そこで、データ元の記述の規則性を利用して、数値データをExcelの関数を使って抽出したいです。そこでない知恵を絞っているのですが、どういう方法がベストですか?

手順(1)データ元をコピーして、Excelのワークシートに貼り付ける。European Uppercut が A1に、Minimum d...続きを読む

Aベストアンサー

ANo.2
です。
indirectをつかわないと、
セルの中身の文字列ではなく、セルのアドレスの文字列が対象となります。
たとえば、A3が"Maximum Damage: 15 "のとき、
indirectでは、"Maximum Damage: 15 "をさして、右2文字は"15"ですが、なければ、A3のアドレス"$A3"になって、右2文字は"A3"です。
やってみればわかるでしょう。

Qexcelで、セル内の横並びのデータを、違うシートへ縦並びにしたい

予定表を作っています。
例えば、シート月予定のセルA1内に「松 竹 梅」と3つ事項を全角スペースで横並びに入力します。
これを、違うシート年予定のセルB2にリンクさせるために、
計算式をB2=月予定!A1にすると、
ただ単に同じ横並びの「松 竹 梅」のように貼り付けるだけです。
ここのところで、セルB2内に、



と並び替えたいのですが、わかりません。置換のctrl+Lはだめでした。
どうすればいいのか教えてください。
 (カテゴリーが違っていたら、申し訳ありません。

Aベストアンサー

数式は
=SUBSTITUTE(月予定!A1," ",CHAR(10))
として
セルの書式設定>配置>文字の制御で
「折り返して全体を表示する」にチェックを入れて「OK」

Qエクセル データ並び変換(縦から横) 不要行削除

同一キーに属する複数データが縦並び(行)になっているのを横並び(列)に直して、下段の
データを行ごと削除したいのですが、どのような方法が考えられますでしょうか?
キーの数は不特定で空白行はありません。データはキーも含めて、全て文字列です。
発想が貧困なもので、何から手を付けて良いかわかりません。お手数ですが、ご教示ください。

  A  B  C
1  x  a
2  x  b
3  y  c
4  y  d
5  z  e
6  z  f



199
200




  A  B  C
1  x  a  b
2  y  c  d
3  z  e  f



99
100

Aベストアンサー

行の削除まで行おうというのであればVBAは必須です。でもVBAが全く分からないのであればサンプルを提示しても無意味でしょう。

もしSheet1に縦方向で並んでいるデータを、別シートに横方向に並べ替えるだけでよければ関数で可能です。その方法は以下の通りです

1)A列全体を選択→「データ」→「フィルタオプションの設定」→ 重複するデータは無視するにチェックしてOK
 これによりA列のキーは重複のない状態で表示されますから、これをコピーして別シートのA1からAnに貼り付ける

2)A列全体を選択→「データ」→「フィルタオプションの設定」→ 重複するデータは無視するのチェックを外す

3)別シートのB1に以下の関数を貼り付ける
=IF(ISERROR(SMALL(IF(Sheet1!$A$1:$A$500=$A1,ROW(Sheet1!$A$1:$A$500),""),COLUMN()-1)),"",INDEX(Sheet1!$A$1:$B$500,SMALL(IF(Sheet1!$A$1:$A$500=$A1,ROW(Sheet1!$A$1:$A$500),""),COLUMN()-1),2))

そして Shift+Ctrl+Enter で入力する(重要!)

4)B1をコピーして必要な分だけ他のセル(例えばC1~Z1やB2~Z100)に貼り付ける

以上の操作で横方向に並べ替えされた表が出来ます。出来上がった表をコピーし、「編集」→「形式を選択して貼り付け」→値 で貼り付ければ元のSheet1のデータは消すなりご自由に。

行の削除まで行おうというのであればVBAは必須です。でもVBAが全く分からないのであればサンプルを提示しても無意味でしょう。

もしSheet1に縦方向で並んでいるデータを、別シートに横方向に並べ替えるだけでよければ関数で可能です。その方法は以下の通りです

1)A列全体を選択→「データ」→「フィルタオプションの設定」→ 重複するデータは無視するにチェックしてOK
 これによりA列のキーは重複のない状態で表示されますから、これをコピーして別シートのA1からAnに貼り付ける

2)A列全体を選択→「...続きを読む

Qエクセル 横並びの複数行データを縦1列にしたい

セルA1からH1までで折り返しのデータ

1 2 3 4 5 6 7 8
9 10 11 12 13 14 15 16
17 18 19 20 21 22 23 24


このデータを
1
2
3
4
5
6


というデータに変換したいのですが,
方法はあるのでしょうか?
よろしくお願いします。

Aベストアンサー

正規表現の使えるテキストエディタ(「秀丸エディタ」や「さくらエディタ」)にセルA1からH1までをコピーして貼り付け、
置換を選択し、「正規表現」にチェックを入れた状態で、
  検索: \t
  置換: \n
で実行し、タブを改行に置き換えることができます。
あとは、エクセルに貼り付けるだけです。


このカテゴリの人気Q&Aランキング

おすすめ情報