エクセルで行の並べ替え 大きい順に 小さい順に
このような 行のデータを並べ替えたい場合 小さい方から
並び替える場合 「マクロ」を使います
------------------------------------------------------------------
office 2010 以降 メニュータブに 「開発」を追加してください
その中に 「マクロ」があると 思います
------------------------------------------------------------------
「挿入」
------------------------------------------------------------------
「フォーム」
------------------------------------------------------------------
「ボタン」
をクリックして
「 マクロ」 新規作成を選びます
------------------------------------------------------------------
「ボタン」が出来ました
------------------------------------------------------------------
「マクロ」のVBAのプログラムを書きます
ここで、データの位置、長さがわからないと ダメなので
ここに、データをコピペします
------------------------------------------------------------------
プログラムです。
For y = 10 To 2410
'並べ替えの部分
Range(Cells(y, 1), Cells(y, 6)).Select
Selection.Sort Key1:=Cells(y, 1), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
SortMethod:=xlPinYin
'並べ替え終わり
'
Next y
------------------------------------------------------------------
プログラム解説： for y=10 to 2410 ：ｙの値は 何行目から 何行目まで
並び替えるかです
この場合 １０行目から ２４１０行目までです
自分で設定してください
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
プログラム解説 ： Range(Cells(y, 1), Cells(y, 6)).Select
何列まで並び替えるかの指定です
この場合 １～６列目までです。自分で変更してください
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
これで
自分で変更してください
こんのプログラムは 小さい順に なります
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Order1 xlAscending 昇順に並び替える
xlDescending 降順に並び替える
このように変更すると、大きい順に並び変わります
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
これでも、不明の場合 サポートしますので
メールして 下さい
連絡先： info@r7-yosou.hippy.jp
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
お役に立てると、うれしいです
それでは
0 件のコメント:
コメントを投稿