Re: [算表] Excel 判斷欄內字元再自動貼到指定shee …

看板Office作者kothoi (世界真小)時間14年前 (2011/08/15 12:30)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

我現在錄製了一個巨集, 如下: Sub Macro1() ' ' Macro1 Macro ' ' 快速鍵: Ctrl+q ' Rows("1:1").Select Selection.Cut Sheets("北京市").Select Rows("3:3").Select ActiveSheet.Paste Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("資金").Select Selection.Delete Shift:=xlUp Application.Goto Reference:="Macro1" End Sub 我的做法: 1. 先將省地縣碼排序由小到大, 如下: 登记注册类型省地县码从业人数 1 210 110101 31 2 210 110101 30 3 210 110101 120 4 210 110101 674 ... 2. 錄製的巨集 ==> 將第一行全部剪下-->貼至sheets("北京市") 的第二行 ==> 將sheet("北京市")的第二行插入一個空白行 (方便下次再次貼入資料) ==> 回到sheet("資金")把第一行刪除 (讓下一行資料上移) 3. 問題來了!! 我想要讓程式可以自動判斷說當B欄位(省地縣碼)的開頭兩位數 "不再"是11的時候要作業自動"停止" 應該要加入怎麼樣的程式碼呢?? 謝謝 ╭(─╴╴─)╮ ▃▇ ※ 引述《kothoi (世界真小)》之銘言： : 軟體: Microsoft Office Excel : 版本: 2007 : 現在我有一個sheet1裡面有五十幾萬筆資料 : 我要做的事情是將他們依造不同的類型來分類到其他的sheet中 : 例子如下: : A(名稱) B(郵政碼) C : 1 台江貿易公司 11xxxx .... : 2 瀋陽鋼鐵廠 13xxxx .... : 3 河北製造廠 12xxxx .... : 4 北京煉油廠 13xxxx .... : 5 天津食品局 41xxxx .... : ..... : 我要做的事情就是依照B欄的前兩個數字碼來做分類 : 例如前兩碼為11, 我就要把它放到sheet2 : 若前兩碼為12, 我就要將它放到sheet3 : 請問這有辦法使用巨集讓他做嗎?或是說有其他方式可以達到目標呢? : 先謝謝各位大大的解答 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.137.241