|
▼ichinose さん:
御礼がおそくなり申し訳ありません。
テスト段階では上手くいってる気がしますが
実際ではデータ量がかなり多くなるので
下記のVBAを元にがんばってみます。
ありがとうございました。
>'==========================================================
>Sub sample()
> サンプル作成
> MsgBox "このデータを優先順位 項目1〜項目7の順に昇順にソートします"
> With Range("A1:G21")
> .Sort Key1:=Range("E1"), Order1:=xlAscending, Key2:=Range("F1") _
> , Order2:=xlAscending, Key3:=Range("G1"), Order3:=xlAscending, Header:= _
> xlYes
> .Sort Key1:=Range("b1"), Order1:=xlAscending, Key2:=Range("c1") _
> , Order2:=xlAscending, Key3:=Range("d1"), Order3:=xlAscending, Header:= _
> xlYes
> .Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlYes
> End With
> MsgBox "というように優先順位の低い順にソートしていきます"
>End Sub
>'=======================================================================
>Sub サンプル作成()
> With Range("a1:g21")
> With .Rows(1)
> .Formula = "=""項目"" & column()"
> .Value = .Value
> End With
> With .Rows("2:21")
> .Formula = "=int(rand()*10)+1"
> .Value = .Value
> End With
> End With
>End Sub
>
>
>これは、例題ですが、試してみてください。
|
|