[發問] 分割資料成為新增工作表

b9208

各位先進您好
請問如何依照工作表內之特定儲存格資料，
分割資料成為新增工作表並置於原工作表之後，
更改新增工作表名稱為儲存格資料，同活頁簿內，如附件說明。
祝大家新年快樂，心想事成，宏兔大展。
B2.rar (4.35 KB)

下載次數: 16

2011-2-1 10:50

b9208

感謝 Hsieh 版主
執行ok
工作表排列可以如下方式：
WW, Mon, Tue, ......., Sun
目前排列 Sun, Sat, ........, WW

謝謝

b9208

Hsieh 版主
排列ok
但有另一問題，其他工作表都刪除了（除了WW及新增Mon, Tue,...）
同一檔案中含有其他的工作表
" If sht.Name <> .Name Then sht.Delete "
謝謝您

b9208

Dear Hsieh

vba程式執行ok

非常感謝您

b9208

回復 6# Hsieh

版主您好
如增加清單資料表
由Mon~Sun工作表中，依照O欄資料，設定第一個字為E,M,R,T,U,S等，列出所需欄位資料。
如附件所示，謝謝

B2-1.rar (14.83 KB)

下載次數: 8

2011-2-1 22:49

b9208

回復 6# Hsieh

Hsieh 版主
於分割後之工作表（Mon.........Sun)，依據[M5]之項目排序（由小至大，沒有標題列）
增加之程式碼如下：
With Sheets.Add(after:=Sheets(Sheets.Count))
    ............
     .[A6].Resize(j, 15).Sort Key1:=.[M5], Header:=xlNo
     ActiveWindow.Zoom = p
   End With

但[M5]欄位之資料都是被格式化成文字的數字，
在排序選項中〞將任何看似數字的項目視為數字來排列〞此選項可以完成。
請教要如何修改程式碼。

非常感謝

b9208

回復 11# Hsieh

非常感謝指導
修訂如下：
.[A6].Resize(j, 15).Sort Key1:=.[M5], Order1:=xlAscending, Header:=xlNo, MatchCase:=False, DataOption1:=xlSortTextAsNumbers