欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

使用excel時(shí)，有時(shí)會(huì )碰到一個(gè)表格里面很多的sheet，比如sheet11，sheet23。。。

當這些sheet是無(wú)序的時(shí)候，查找一個(gè)sheet很疼，所有想按sheet來(lái)排序下，但是excel本身又不提供按sheet排序的方法，所有就上網(wǎng)找了下解決方法 ，發(fā)現得通過(guò)excel的VB編程模式，隨便右擊一個(gè)sheet名稱(chēng)，選擇“查看代碼”，在彈出的界面中加入以下代碼：

Sub Sort_Sheets()
  Dim sCount As Integer, I As Integer, R As Integer
  ReDim Na(0) As String
  sCount = Sheets.Count
  For I = 1 To sCount
      ReDim Preserve Na(I) As String
      Na(I) = Sheets(I).Name
  Next
  For I = 1 To sCount - 1
      For R = I + 1 To sCount
          If Na(R) < Na(I) Then
             JH = Na(I)
             Na(I) = Na(R)
             Na(R) = JH
          End If
      Next
  Next
  For I = 1 To sCount
      Sheets(Na(I)).Move After:=Sheets(I)
  Next
End Sub

然后執行代碼，問(wèn)題解決~~