首页 > 其他分享 >【VBA】シートを並び替える【バブルソートを使ってMoveで移動する】

【VBA】シートを並び替える【バブルソートを使ってMoveで移動する】

时间:2024-10-03 20:11:44浏览次数:7  
标签:VBA End 移動 Move Sheets 基準

参考元:【VBA】シートを並び替える【バブルソートを使ってMoveで移動する】
https://daitaideit.com/vba-sheet-sort/


 
手順としては、次のようになります。
 基準のシートを「1~4番目」でループ
 比較シートを「基準+1番目~最終シート」でループ
 右側のシートが小さい場合は、基準シートの左に移動

Sub TEST1()
  
  '基準をループ
  For i = 1 To 4
    '比較先をループ
    For j = i + 1 To 5
      '右側が小さい場合は、基準の左に移動
      If Sheets(i).Name > Sheets(j).Name Then
        Sheets(j).Move before:=Sheets(i) '基準の左に移動
      End If
    Next
  Next
  
End Sub

标签:VBA,End,移動,Move,Sheets,基準
From: https://www.cnblogs.com/langQ/p/18445950

相关文章