Re: [算表] 把很多excel檔案文字改成數字

看板Office作者 (給你吃膨餅)時間17年前 (2008/10/01 13:51), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/2 (看更多)
※ 引述《ljuber (給你吃膨餅)》之銘言: : 軟體:excel : 版本:任何版本 : 我從某系統下載了好多excel檔 : 想要用裡面的數字 : 但是發現 : 他裡面的數字都是文字格式 : 害我用連結時候都無法計算 : (用sumif) : 不知道有什麼方法可以很快的把很多excel檔內的文字改成數字? 自問自答 剛剛上網去找了一些巨集範本 自己編了一個: 只要改裡面的範圍跟路徑 就可以改一堆excel檔了 p = "D:\實驗\" f = Dir(p & "*.xls") Do While f <> "" Workbooks.Open p & f For Each sh In Worksheets Dim n As Range For Each n In Range("B7:G22") n.FormulaR1C1 = n.Text Next n Next ActiveWorkbook.Close True f = Dir Loop End Sub -- 機殼:Silverstone Sg01-E CPU: C2D E6750 主機板:GA-G33M-DS2R 記憶體:A-DATA DDR2 800 2GB x2(鐵殼版) power:海韻380W SII 顯示卡:Gigabyte 9600GSO 384MB 電視卡:compro T300 燒錄機:Benq DW2000 硬碟:Segate 750G +日立 750G +Segate企業320G 錄音介面:M-Audio Fireware Solo -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.65.186.253
文章代碼(AID): #18um_E3S (Office)
文章代碼(AID): #18um_E3S (Office)