Excelで得意先一覧表という表を作り、
売上合計で並び替えをしようとしたら、
1番左端のコードと得意先名しか並び変わりません
右の方にあるデータが全然動きません。
原因を知っている方がいれば是非教えて下さい。お願いします

A 回答 (3件)

一番左側の箇所と右側のデータの間に空白の列(セル)はありませんか?


そうであれば、空白セルの左側だけしか並び替えられません。

また、表全体(見出し行を除く)をエリア指定から並べ替え実行すれば治ると思います。
    • good
    • 0

表全体をまず選択して「データ」「並べ替え」で


並べ替えのダイアログボックスを出して、条件を設定すると
まちがいなく並べ替えることができると思います。

データの先頭行は項目名か、データなのかも気をつけましょう。

ツールバーのAZ↓ボタンが使えるのは、
表のまわりのセルが空白セルであることが条件です。
また、表の中のセルをアクティブにしておくこと。
    • good
    • 0

コマンドの「AZ↓」ボタンではなく、メニューバー「データ」の「並べ替え」で開始した時、並べ替えるデータの範囲が黒く選択されます。



この時、一覧全てが選択されていますか?
それに並べ替えのダイアログの「範囲の先頭行」は「タイトル」が選択されているでしょうか。
    • good
    • 0

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Qマクロ:横並びデータを縦並びに変更

添付のように、横に並んでいるデータを、
縦に並べ変えるマクロを組みたいのですが、
ネットで検索して、組んでみたのですが、
基本的な知識がなくてうまくいきません。

データ量もあり、頻繁に発生する作業なので、
教えて頂けると大変助かります。

よろしくお願い申し上げます。

Aベストアンサー

Option Explicit
Option Base 1
Sub データ正規化()
  Dim i As Integer
  Dim j As Integer
  Dim k As Integer
  Dim 国 As String
  Dim 品番 As String
  Dim カラー As String
  Dim 転送元 As Worksheet
  Dim 転送先 As Worksheet
  Set 転送元 = Worksheets("Sheet1")
  Set 転送先 = Worksheets("Sheet2")
  i = 2
  j = 0
  While 転送元.Cells(i, 1) <> ""
    国 = 転送元.Cells(i, 1)
    品番 = 転送元.Cells(i, 2)
    カラー = 転送元.Cells(i, 3)
    k = 1
    While Cells(i, k * 2 + 2) <> ""
      j = j + 1
      転送先.Cells(j, 1) = 国
      転送先.Cells(j, 2) = 品番
      転送先.Cells(j, 3) = カラー
      転送先.Cells(j, 4) = 転送元.Cells(i, k * 2 + 2)
      転送先.Cells(j, 5) = 転送元.Cells(i, k * 2 + 3)
      k = k + 1
    Wend
    i = i + 1
  Wend
End Sub

データはSheet1の2行目からA列が空白になるまで
D列以降はサイズと数量の2列1組で複数組
出力はSheet12の1行目から
という仕様で書いてみました

現在酔っ払っているので解説が必要なら後日

Option Explicit
Option Base 1
Sub データ正規化()
  Dim i As Integer
  Dim j As Integer
  Dim k As Integer
  Dim 国 As String
  Dim 品番 As String
  Dim カラー As String
  Dim 転送元 As Worksheet
  Dim 転送先 As Worksheet
  Set 転送元 = Worksheets("Sheet1")
  Set 転送先 = Worksheets("Sheet2")
  i = 2
  j = 0
  While 転送元.Cells(i, 1) <> ""
    国 = 転送元.Cells(i, 1)
    品番 = 転送元.Cells(i, 2)
    カラー = 転送元.C...続きを読む

Q縦並びデータを横並びに加工(Excel、CSV)

以下のようなCSVデータがあります。
県名,品物名,購入者
青森,りんご,西田さん
青森,りんご,斉藤さん
青森,りんご,山田さん
愛媛,キウイ,島田さん
愛媛,みかん,石川さん
愛媛,みかん,佐藤さん
愛媛,みかん,田中さん
愛媛,みかん,小林さん





これを以下のように加工したいです。

県名,品物名,購入者1,購入者2,購入者3,購入者4・・・・・購入者100
青森,りんご,西田さん,斉藤さん,山田さん
愛媛,みかん,石川さん,佐藤さん,田中さん,小林さん
愛媛,キウイ,島田さん




要は、品物名でグループ化し、購入者の値を横並びにして項目名は連番にしたいです。
(項目名の連番は最後に手作業でも問題なし)
エクセルの手作業でならできましたが、品物名が500を超える場合があり、
購入者の数も100近くになるため、毎週こういうことはできないため、
エクセルやアクセスでなるべく簡単にできたらいいと思います。
スマートな方法のアイデアがあったらご教授ください。

Aベストアンサー

こんにちは!
VBAになってしまいますが、一例です。
Sheet1のデータをSheet2に表示するようにしてみました。

Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)

Sub Sample1() 'この行から
Dim i As Long, endRow As Long, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1") '←「Sheet1」は実際のSheet名に!
Set wS2 = Worksheets("Sheet2") '←「Sheet2」も実際のSheet名に!
Application.ScreenUpdating = False
wS2.Cells.ClearContents
endRow = wS1.Cells(Rows.Count, "A").End(xlUp).Row
wS1.Range("A1").Resize(, 2).Copy wS2.Range("A1")
wS1.Range("A:A").Insert
With Range(wS1.Cells(1, "A"), wS1.Cells(endRow, "A"))
.Formula = "=B1&C1"
.Value = .Value
.AdvancedFilter Action:=xlFilterInPlace, unique:=True
End With
endRow = wS1.Cells(Rows.Count, "A").End(xlUp).Row
Range(wS1.Cells(2, "B"), wS1.Cells(endRow, "C")).Copy wS2.Cells(2, "A")
With wS1
.ShowAllData
.Range("A:A").Delete
End With
For i = 2 To wS2.Cells(Rows.Count, "A").End(xlUp).Row
With wS1.Range("A1").CurrentRegion
.AutoFilter field:=1, Criteria1:=wS2.Cells(i, "A")
.AutoFilter field:=2, Criteria1:=wS2.Cells(i, "B")
endRow = .Cells(Rows.Count, "A").End(xlUp).Row
Range(.Cells(2, "C"), .Cells(endRow, "C")).Copy
wS2.Activate
ActiveSheet.Cells(i, "C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
End With
Next i
For i = 3 To wS2.UsedRange.Columns.Count
wS2.Cells(1, i) = wS1.Cells(1, "C") & i - 2
Next i
Application.ScreenUpdating = True
wS1.AutoFilterMode = False
End Sub 'この行まで

こんなんではどうでしょうか?m(_ _)m

こんにちは!
VBAになってしまいますが、一例です。
Sheet1のデータをSheet2に表示するようにしてみました。

Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)

Sub Sample1() 'この行から
Dim i As Long, endRow As Long, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1") '←「Sheet1」は実際のSheet名に!
Set wS2 = Worksheets("Sheet...続きを読む

Qエクセルの並び替えでアイコンを使うと2行目が並び替わらない。

エクセルの並び替えでアイコンを使った場合、昇順・降順いずれも
2行目(タイトル行の一つ下の行)が固定されたまま、3行目以下で
並び替えがされてしまいます。

具体的には
NO. 氏名    得点
1   山田太郎  75
2   鈴木和夫  63
3   佐藤正行  70
4   前田義彦  89

↓ 並び替え実施

NO. 氏名    得点
1   山田太郎  75
4   前田義彦  89
3   佐藤正行  70
2   鈴木和夫  63

、となってしまい、本来3番目(4行目)になるはずの2行目の
山田太郎が、2行目に固定されて並び替えの範囲に入らないのです。

エクセルとは長くつき合っているんですが、どうしてもうまく
いきません。どなたかお教えください。
ちなみに、書式は2~5行目は同じです。
よろしくお願い申し上げます。
   

Aベストアンサー

オートフィルタなどを使っていたら一度解除すると良いです。
そうではない場合は、全データをコピーして、別のシートへ 値 だけ貼り付けてみて下さい。

Qexcelで横並びグループを縦並びに変換する方法を教えて下さい

エクセルの表の縦横変換について質問です。
「コピー」→「形式を選択&縦横変換」では出来ないので関数かVBAになると思いますがこれらが苦手なモノで質問させていただきました。

現在の並び
コードA コードBコードC コードDコードE …
サイズA サイズBサイズC サイズDサイズE …
数 量A 数 量B数 量C 数 量D数 量E …
重 量A 重 量B重 量C 重 量D重 量E …
区 分A 区 分B区 分C 区 分D区 分E …

これを下のようにしたいのですが、良い関数などは無いでしょうか??

コードA
サイズA
数 量A
重 量A
区 分A
コードB
サイズB
数 量B
重 量B
区 分B
コードC
サイズC
数 量C
重 量C
区 分C
コードD
サイズD
数 量D
重 量D
区 分D
コードE
サイズE
数 量E
重 量E
区 分E

既出の質問http://oshiete1.goo.ne.jp/kotaeru.php3?q=1263622
に似ているのでこの関数をベースにいろいろやってみたのですが自分では解決できず相談させていただきました。
よろしくお願いします。

エクセルの表の縦横変換について質問です。
「コピー」→「形式を選択&縦横変換」では出来ないので関数かVBAになると思いますがこれらが苦手なモノで質問させていただきました。

現在の並び
コードA コードBコードC コードDコードE …
サイズA サイズBサイズC サイズDサイズE …
数 量A 数 量B数 量C 数 量D数 量E …
重 量A 重 量B重 量C 重 量D重 量E …
区 分A 区 分B区 分C 区 分D区 分E …

これを下のようにしたいのですが、良い関数などは無いでしょうか??

コー...続きを読む

Aベストアンサー

数式の方法です
A7セルなら
=INDEX($A$1:$E$5,MOD(ROW(A5),5)+1,ROW(A5)/5)
下へオートフィル

作業列を設けたB7セルなら(添付図)
=INDEX($A$1:$E$5,MOD(A7,5)+1,A7/5)
下へオートフィル

Qエクセル並び替え、ひらがなカタカナで並び分ける

並び替えをすると、ひらがなとカタカナを分けてくれません

並べ替えをしたい一つの文字列の中にもに、ひらがなとカタカナが混ざっています
色々調べたのですが、上手い方法が見つかりません、教えて下さい
少々ならマクロも使えます

ああ
あア
ああ
あア

ああ
ああ
あア
あア

あるいは

あア
あア
ああ
ああ

に、なるようにしたいです
お願いいたします

Aベストアンサー

本来は、ひらがなとカタカナの文字コードは別なのでちゃんと並び変わるはずです。
しかし、Excelのいくつかのバージョンではデフォルトで「ふりがな検索」に
なっているので、「あ」と「ア」は同じ文字と認識されます。
並びかえオプションで「ふりがな検索」をはずしてみてください。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報