excel將工作表按筆畫或拼音順序排序

Excel將工作表按筆畫或拼音順序排序

Excel中沒有內(nèi)置工作表排序的命令或方法，我們可以用VBA來實現(xiàn)工作表排序。下面的VBA代碼可以將工作表按其名稱的拼音或筆畫的順序來排序，同時還可以指定升序或降序。

Sub SortWorksheets()Dim SortOrd, SortM, ActiveSht As StringDim NumSht()ActiveSht = ActiveWorkbook.ActiveSheet.NameOn Error Resume Nextn = Sheets.CountIf n = 1 ThenMsgBox "只有一張工作表，無需排序！"EndEnd IfReDim NumSht(1 To n)For i = 1 To nNumSht(i) = Sheets(i).NameNext

‘在此設(shè)置工作表排序方法和排序方向‘SortM = xlPinYin為按拼音順序， SortM = xlStroke為按筆畫順序‘SortOrd = xlAscending為升序，SortOrd = xlDescending為降序SortOrd = xlAscendingSortM = xlPinYin

Set sht = Sheets.Addsht.Move after:=Sheets(n + 1)sht.Visible = FalseWith sht.Range("A1:A" & n).NumberFormat = "@".Value = Application.WorksheetFunction.Transpose(NumSht()).Sort Key1:=sht.Range("A1"), Order1:=SortOrd, SortMethod:=SortMNumSht() = Application.WorksheetFunction.Transpose(.Value)End WithFor i = 1 To nSheets(NumSht(i)).Move Before:=Sheets(i)NextApplication.DisplayAlerts = Falsesht.DeleteApplication.DisplayAlerts = TrueActiveWorkbook.Worksheets(ActiveSht).SelectEnd Sub

代碼中的SortOrd變量指定工作表的排序次序，xlAscending為升序，xlDescending為降序。SortM變量指定工作表的排序方法，xlPinYin指定工作表按拼音順序排序，xlStroke為按筆畫順序排序。在代碼中進(jìn)行相應(yīng)的更改即可按不同的方法和次序進(jìn)行排序。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。