使用excel時，有時會碰到乙個**裡面很多的sheet，比如sheet11，sheet23。。。
當這些sheet是無序的時候，查詢乙個sheet很疼，所有想按sheet來排序下，但是excel本身又不提供按sheet排序的方法，所有就上網找了下解決方法 ，發現得通過excel的vb程式設計模式，隨便右擊乙個sheet名稱，選擇「檢視**」，在彈出的介面中加入以下**：
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
然後執行**，問題解決~~
多個excel工作簿 工作表合併
功能描述 合併當前資料夾下面所有excel，包括每乙個工作簿與每乙個工作簿下面的每乙個工作表 步驟 1 所有表的每個sheet需要表頭一致 2 所有表需要放在乙個資料夾下面 3 該程式會合併當前資料夾下面所有字尾名為指定字尾名的資料 4 在該資料夾下面新建乙個同樣字尾名的excel 5 開啟新建的 ...
隱藏Excel中的工作表
有時我們需要在excel中對工作表進行隱藏,以便不讓這些敏感資料被無關的人檢視到,而一般的做法都是先選中需要隱藏的工作表標籤,然後單擊 格式 工作表 隱藏,但稍微有點excel基礎的人都知道再單擊 格式 工作表 取消隱藏,就能把隱藏的工作表顯示出來,其實我們還可以將工作表的 隱藏 進行的再徹底些。1...
使用VBA將Excel工作表分割成多個檔案
有乙個 具體資料如下圖所示。這裡需要按城市 即b列資料 對 進行拆分，拆分出多個以城市名稱命名的xlsx檔案，每個xlsx檔案都只包含當前城市的資料。之前沒有接觸過excel相關的程式設計，也沒有學習過vb語言，完全是摸著石頭過河。在這裡把期間使用過的一些資料羅列下，方便以後再次用到的時候，可以快速...