エクセルの学校：全文検索：Hyper Estraier：（素人）

Results of 1 - 1 of about 159 for （素人） (0.000 sec.)

[[20220311094718]]: #score: 10177; @digest: d258866135c321e489bf05e6d48d541a; @id: 90684; @mdate: 2022-03-11T04:09:44Z; @size: 2372; @type: text/plain; #keywords: order2 (4446), xlascending (4163), 最優 (2515), 白列 (2385), タ") (2044), xlno (1988), 様ア (1845), え() (1755), 処方 (1740), header (1650), ー10 (1541), order1 (1431), 優先 (1305), タ内 (1110), ー] (1010), columns (921), び替 (883), sort (865), 行as (850), currentregion (788), 対処 (781), 照が (756), 空白 (738), 並び (731), 白で (730), 素人 (669), 終行 (643), 最終 (611), 行= (600), 言葉 (557), 1004 (536), 太様 (488); 『VBA 並び替えでエラー1004が発生する』（素人） 初めまして、ご教授よろしくお願いします。 A,B,D〜Lまで1行目からデータが入力されたリストがあります。 D列を最優先、I列を次に優先し、昇順で並び替えたかったので Sub 並び替え() Sheets("データ").Select With Range("A1").CurrentRegion .Sort key1:=.Columns(4), order1:=xlAscending, Header:=xlNo .Sort key2:=.Columns(9), order2:=xlAscending, Header:=xlNo End With End Sub というマクロを使用したのですが、実行時エラー1004 並び替えの参照が正しくありません。参照が並べ替えるデータ内にあることと、[最優先されるキー]ボックスが空白でないことを確認してください。というエラーが発生してしまいました。自分なりに調べたところ、C列が空白であることが原因ではないかと思うのですが、対処方法が分かりません。ご協力をよろしくお願いします。＜使用 Excel:Excel2010、使用 OS:Windows10 ＞ ---- >自分なりに調べたところ、C列が空白であることが原因ではないかと思うのですが、対処方法が分かりません。 Range("A1").CurrentRegion は、 A1セルを含む空白で囲まれたセル範囲というような意味になりますので、空白列または空白行が表の区切りとして認識されてしまいます。なのでA列からB列までしか指定していないことになり、その範囲にない列をキーとして指定しているのでエラーになると思います。表の中に空白列があるということなので、 CurrentRegionという以外の言葉を使って、表の範囲をエクセル君に説明してあげる必要があります。まずは、日本語で表現してみてはいかがでしょう? その言葉をVBA語に翻訳するところを手伝ってもらえばよいかと思いました。（まっつわん） 2022/03/11(金) 10:57 ---- こんな感じじゃないですか? Sub 並び替え() Sheets("データ").Select With Intersect(Columns("A:L"), ActiveSheet.UsedRange) .Sort key1:=.Columns(4), order1:=xlAscending, key2:=.Columns(9), order2:=xlAscending, Header:=xlNo End With End Sub （半平太） 2022/03/11(金) 10:59 ---- ＞＞まっつわん様アドバイスありがとうございました。＞＞半平太様いただいた式を活用し、最終的にこうなりました。 Sub 並び替え() Sheets("データ").Select Dim 最終行 As Long 最終行 = Range("A" & Rows.Count).End(xlUp).Row Range("A1:L" & 最終行).Sort _ key1:=Range("D1"), order1:=xlAscending, _ key2:=Range("I1"), order2:=xlAscending, _ key3:=Range("G1"), order2:=xlAscending, _ Header:=xlNo End Sub ご指導ありがとうございました。 （素人） 2022/03/11(金) 13:09 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202203/20220311094718.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ