エクセル2000でデータの並べ替えをするとき、一番上の行を指定から自動的に外すにはどうしたらいいのでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (1件)

データ→並べ替えと選択してダイヤログボックスが表示されたら、範囲の先頭行という項目があるので、タイトル行を選択すれば並べ替えの対象

から外れます
    • good
    • 0
この回答へのお礼

ありがとうございます。助かりました!

お礼日時:2002/01/16 02:41

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

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

Qエクセルでピボットを組むと、集計されたデータの一番上にしかデータが出て

エクセルでピボットを組むと、集計されたデータの一番上にしかデータが出てこなくなります。
集計した上で、すべての行にデータを入力することはできないのでしょうか。

【現状】

大分類  中分類  小分類
AAAAA  BBBBBB  CCCCCC
(空白) (空白) CCCCCC
(空白) DDDDDD  EEEEEE
(空白) (空白) EEEEEE

    ↓↓↓↓

【理想】

大分類  中分類  小分類
AAAAA  BBBBBB  CCCCCC
AAAAA  BBBBBB  CCCCCC
AAAAA  DDDDDD  EEEEEE
AAAAA  DDDDDD  EEEEEE


もしやり方があるのであれば、教えてください。

Aベストアンサー

こんにちは。No.2です。

> このやり方ですと、中分類列を選択して空白のセルをすべて特定すると・・・
>「BBBBBB」が中分類列の空白に入力されてしまうと思います。
絶対参照や複合参照の数式で入力されるならそうなりますが、
=上のセル という相対参照の数式を入力しようとしているので、
DDDDDDの下には、DDDDDDが表示されます。

もし、BBBBBBと表示されるなら、
作成した数式は、=列$行 という数式になるはずですが…

QExcel2000 データの並べ替えで条件を保存する方法

データの並べ替えで、「最優先されるキー」「2番目に優先されるキー」「3番目に優先されるキー」をその都度指定していますが、これらのキーを保存することはできますか。

Aベストアンサー

マクロでソートキーを固定する方法しかないでしょう。
(1)マクロの記録でも(2)直接下記コード入力でもよいから
Sub Macro1()
Selection.Sort Key1:=Range("a1"), Key2:=Range("b1"),Key3:=Range("c1"), _ Order1:=xlAscending,Order2:=xlAscending,Order3:=xlAscending
End Sub
になるようにする。(Range("c1"), _までが1行ですから注意。)
(1)の時はマクロ記録の上記以外の部分を削除する。
(2)の時は上記をコピーし、Module1に貼り付ける。
第1キーがF列ならKey1:=Range("f1")のように変えること。
ソートする範囲は手操作で指定する。(マクロから範囲を
除くことにより、表の増減・多少に対応できるようになる。)その後マクロを実行するとソートされる。

Qエクセルのデータを抽出後、自動的に並び替え

こんばんは☆
うまく説明できるかわかりませんが、どうぞよろしくお願いします。

・シート1に以下のデータが入っているとします。
   A     B     C
1 番号   データ1  データ2
2        ●     ■
3        ▲     ×
4        ■     ■
5        ◎     ▲

・シート1のA列に番号を上から順ではなく、該当するデータ順(例えば処理した順)につけていくと、別シート(例えばシート2)に自動的に順番にデータが表示されるようにしたいのですが、どうすればよいのでしょうか…
   A     B     C
1 番号   データ1  データ2
2        ●     ■
3  2     ▲     ×
4        ■     ■
5  1     ◎     ▲
   ↑
   該当順に数字を入力したら、シート2に下記のように表示したいのです。
   A     B     C
1 番号   データ1  データ2
2  1     ◎     ▲
3  2     ▲     ×



 何卒お力をお貸しください(><)

こんばんは☆
うまく説明できるかわかりませんが、どうぞよろしくお願いします。

・シート1に以下のデータが入っているとします。
   A     B     C
1 番号   データ1  データ2
2        ●     ■
3        ▲     ×
4        ■     ■
5        ◎     ▲

・シート1のA列に番号を上から順ではなく、該当するデータ順(例えば処理した順)につけていくと、別シート(例えばシート2)に自動的に順番にデータが表示さ...続きを読む

Aベストアンサー

タイトル行を含んでSheet1のA1から元データがあるとします。

Sheet2のA2に
=ROW()-1

Sheet2のB2とC2に
=IF(ISERROR(VLOOKUP($A2,Sheet1!$A:$C,COLUMN(),0)),"",VLOOKUP($A2,Sheet1!$A:$C,COLUMN(),0))

これでSheet2のA2:C2を下にコピーで如何でしょう?

QエクセルVBA 最終行を選んで並び替え (空白セルを一番上に表示したい)

https://oshiete.goo.ne.jp/qa/9679066.html
の追加です。
o列には空白のセルが点在する、o列にも同様に並べ替えしたところ、
空白セルが一番下に来てしまいました。
色々チャレンジしてみたのですが、うまくいきませんでした。
以下をご教授お願いします。

エクセルVBA 最終行を選んで並び替え

画像にありますように、
最終行は、増え続けますので変わります。


この表で、優先順位の設定があります。
①「o6」を降順で並べ替えをしたいのです。
 その時、o列にある空欄のセルを一番上に来るように表示したいです。
②「A1」を昇順で並べ替えたいです。
どのように、記述すればよろしいでしょうか?

*日付の色は2種類ありますが、無視で大丈夫です。

シート名は管理表です。
コードの記述お願いします。

よろしくお願いしますm(__)m

Aベストアンサー

とりあえずこんな感じではどうでしょうか?
--------------------------------------------------------------------------------------
Sub Sample()
Dim 終 As Long
Dim 行 As Long
終 = Cells(Rows.Count, 1).End(xlUp).Row
For 行 = 7 To 終
If Cells(行, 15).Value = "" Then Cells(行, 15).Value = #12/31/9999#
Next
Range(Cells(7, 1), Cells(終, Columns.Count)).Sort _
Key1:=Range("O7"), Order1:=xlDescending, _
Key2:=Range("A7"), Order2:=xlAscending, _
Header:=xlNo
For 行 = 7 To 終
If Cells(行, 15).Value = #12/31/9999# Then Cells(行, 15).ClearContents
Next
End Sub
--------------------------------------------------------------------------------------
※ ソート前に空欄に最大日付(9999/12/31)を代入して、ソート後にクリアしています。
※ VBA で直接日付を代入する時は「#mm/dd/yyyy#」で代入します。

とりあえずこんな感じではどうでしょうか?
--------------------------------------------------------------------------------------
Sub Sample()
Dim 終 As Long
Dim 行 As Long
終 = Cells(Rows.Count, 1).End(xlUp).Row
For 行 = 7 To 終
If Cells(行, 15).Value = "" Then Cells(行, 15).Value = #12/31/9999#
Next
Range(Cells(7, 1), Cells(終, Columns.Count)).Sort _
Key1:=Range("O7"), Order1:=xlDescending, _
Key2:=Range("A7"), Order2:=xlAscending, _
Header:=xlNo
...続きを読む

Qエクセル2000の並び替え(漢字とひらがなをいっしょにして並び替えたい)

ネットでコピーしたものをエクセルに貼付け
あいうえお順に並び替えたいのですが、

漢字とひらがな、があり、並び替えると、ひらがな、ばかりが先に来て、
漢字が後になるのですが、ひらがなと漢字を区別せずび並び替えたいのですが、
方法はあるのでしょうか?
よろしくお願いします。

Aベストアンサー

簡単にできますよ。

なぜ並べ替えたときに漢字が、後になるかと言うと、「ネットでコピーして貼り
付けた」というのが、起因しているからです。

キーボードから直接入力した場合は、漢字と仮名が混じっていても「振り仮名を使う」
限りでは、希望どおりの並べ替えが、出来ます。

ということは、貼り付けた漢字に振り仮名がセットされていないのが原因ですから、
下記の手順で漢字に振り仮名をセットすれば出来ると思います。
但し、人名などの読み方は、様々ですので、完璧でないことは、言うまでもありません。

1. 並べ替えのキーになる漢字とかな混じりのセル範囲を選択します。

2. 使用しているシート名のタブを右クリックし、「コードの表示」を指定します。

3. 表示されたイミディエイトウィンドウ(表示されていない場合は、Ctrl+G )に
  次の1行をコピーし、貼り付けて、その文字上で<Enter>を押します。

Selection.SetPhonetic

4. この操作で漢字に仮名が、設定されますので確認します。

5. Alt+Q でExcelに戻り、通常の並べ替えの操作を行います。

6. 以上ですが、もし特定の範囲において頻繁にこの操作が、必要であれば、
 次のようなマクロを設定しておくと、簡単な操作で出来るかと思います。

Sub rubi_uchi()
'ルビ打ち、非表示
Dim retsu As String
Dim cel_ichi As String
Dim rec As Long
Dim kana As Variant
Dim strPhoText As Variant
Dim start_rec As Long
Dim end_rec As Long
retsu = "A" '   列を指定
start_rec = 1 '  開始行を指定
end_rec = 10000 '   終了行を指定
For rec = start_rec To end_rec
  cel_ichi = retsu & CStr(rec)
  Range(cel_ichi).Select
  strPhoText = ActiveCell
  kana = Application.GetPhonetic(strPhoText)
  ActiveCell.Characters.PhoneticCharacters = kana
  If Not IsEmpty(strPhoText) Then
    ActiveCell.Phonetics(1).CharacterType = xlHiragana
    'ActiveCell.Phonetics(1).CharacterType = xlKatakana
    Selection.Phonetics.Visible = False
  End If
Next rec
End Sub

簡単にできますよ。

なぜ並べ替えたときに漢字が、後になるかと言うと、「ネットでコピーして貼り
付けた」というのが、起因しているからです。

キーボードから直接入力した場合は、漢字と仮名が混じっていても「振り仮名を使う」
限りでは、希望どおりの並べ替えが、出来ます。

ということは、貼り付けた漢字に振り仮名がセットされていないのが原因ですから、
下記の手順で漢字に振り仮名をセットすれば出来ると思います。
但し、人名などの読み方は、様々ですので、完璧でないことは、言うまでも...続きを読む


人気Q&Aランキング

おすすめ情報