私の Excel には 3 つの列のデータが含まれています

#データが 3 列ある Excel があります。 VB

でソート機能を実装したい サブソート1()

ActiveSheet.Sort.SortFields.Clear

ActiveSheet.Sort.SortFields.Add Key:=Range(＂A2:A＂ & Range(＂A1＂).CurrentRegion.Rows.Count) __

、SortOn:=xlSortOnValues、Order:=xlAscending、DataOption:=xlSortNormal

ActiveSheet.Sort.SortFields.Add Key:=Range("B2:B" & Range("A1").CurrentRegion.Rows.Count) __

、SortOn:=xlSortOnValues、Order:=xlAscending、DataOption:=xlSortNormal

ActiveSheet.Sortを使用する場合

.SetRange Range(＂A1:C＂ & Range(＂A1＂).CurrentRegion.Rows.Count)

.ヘッダー = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinying

＃＃＃。適用する＃＃＃

で終わる

エンドサブ

VB 配列のソートの問題

Excelの表のA列に0から11までの合計12個の数字を入力し、それに対応する乱数をB列に12個入力し、B列ごとに並べ替えると、A列の数字がランダムになります。

##ここでも同じ考え方が使用されていますが、2 次元のテーブルが 2 次元の配列に置き換えられている点が異なります。コードは次のとおりです:

Dim マトリックス (0 ～ 11、0 ～ 1) を単一として使用

Dim i を整数として、j を整数として

Dim sngTemp を単一として

ランダム化

'各「行」の最初の番号が行番号になり、2 番目の番号がランダムなサイズの番号になるように配列を初期化します。

For i = 0 ～ 11

行列(i, 0) = i

行列(i, 1) = Rnd(100)

＃＃＃次＃＃＃

Text1.Text = "＂"

'配列が小さいため、ここではバブル ソートを使用して N 番目に大きい数値を除外し、Text1

に表示します。

For i = 0 ～ 11

j = i 1 ～ 11の場合

If 行列(j, 1) > 行列(i, 1) then

sngTemp = 行列(i, 1)

行列(i, 1) = 行列(j, 1)

行列(j, 1) = sngTemp

sngTemp = 行列(i, 0)

行列(i, 0) = 行列(j, 0)

行列(j, 0) = sngTemp

終了の場合

＃＃＃次＃＃＃

Text1.Text = Text1.Text & vbCrLf & Matrix(i, 0)

＃＃＃次＃＃＃

EXCEL VBA マクロ言語の画像の並べ替えの問題

＃＃＃質問1＃＃＃

プライベートサブコマンドボタン1_Click()

i、j を長さの寸法に合わせる

Sheets(＂sheet2＂).Cells.ClearContents

Sheets(＂sheet1＂).Cells.Copy

Sheets(＂sheet2＂).Select

シート(＂シート2＂).範囲(＂A1＂).選択

ActiveSheet.Paste

i = 3

Do While Sheets(＂sheet2＂).Range(＂A＂ & i).Value

＂＂"

For j = 2 To i - 1

If Sheets(＂sheet2＂).Range(＂A＂ & i).Value > Sheets(＂sheet2＂).Range(＂A＂ & j).Value then

＃＃＃それ以外＃＃＃

Sheets("sheet2").Rows(i & ":" & i).Cut

Sheets("sheet2").Rows(j & ":" & j).Insert Shift:=xlDown

終了

終了の場合

次のj

i = i 1

＃＃＃ループ＃＃＃

エンドサブ

＃＃＃質問2＃＃＃

プライベートサブコマンドボタン1_Click()

i、j を長さの寸法に合わせる

Sheets(＂sheet2＂).Cells.ClearContents

Sheets(＂sheet1＂).Cells.Copy

Sheets(＂sheet2＂).Select

シート(＂シート2＂).範囲(＂A1＂).選択

ActiveSheet.Paste

i = 3

Do While Sheets(＂sheet2＂).Range(＂A＂ & i).Value

＂＂"

For j = 2 To i - 1

If Sheets(＂sheet2＂).Range(＂C＂ & i).Value & Sheets(＂sheet2＂).Range(＂D＂ & i).Value > Sheets(＂sheet2＂).Range(＂ C" & j).Value & Sheets("sheet2").Range("D" & j).Value then

＃＃＃それ以外＃＃＃

Sheets("sheet2").Rows(i & ":" & i).Cut

Sheets("sheet2").Rows(j & ":" & j).Insert Shift:=xlDown

終了

終了の場合

次のj

i = i 1

＃＃＃ループ＃＃＃

エンドサブ

以上が私の Excel には 3 つの列のデータが含まれていますの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。