PTT數位生活區 / Office

[算表] 眾多工作表文字轉數字範圍問題

看板Office作者 (佩蒂吉他)時間9年前 (2017/03/27 21:22), 編輯推噓0(0推 0噓 5→)
留言5則, 2人參與, 最新討論串1/1
軟體:excel 版本:2007以上 我有好幾十個工作表 因為下載下來都是文字格式 要轉成數字格式 我寫了隻巨集 Sub test() Dim i As Integer For i = 1 To Sheets.Count If Sheets(i).Name <> "設定" Then Sheets(Sheets(i).Name).Select Range("z1").Copy Range("C5", Range("C5").End(xlDown).End(xlToRight)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd End If Next i End Sub 從range("c5")往旁邊選 但是若是資料連續的話 就一切正常 可是當資料不連續 例如有 C D 111 111 111 111 111 111 111 111 111 111 111 111 不連續的位址就會不能轉換 不知道要怎麼修改 工作表非常多 範例檔案如下 https://drive.google.com/open?id=0BwCgrQhGgaw7bWpIRW9CMlRKNkU 另外我是用複製空白 選擇貼上值 然後選加的概念去寫 但是不知道有什麼更好的寫法可以把眾多工作表文字轉數值 感謝各位 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.72.142.215 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1490620927.A.811.html
→
03/27 21:42, , 1F
如要抓取最右側有值的欄號的話，如工作表sheet2，可以
03/27 21:42, 1F
→
03/27 21:45, , 2F
range.find，searchdirection為xlprevious配合after
03/27 21:45, 2F
→
03/27 21:48, , 3F
也可以迴圈for each..next集合以range.specialcells
03/27 21:48, 3F
→
03/27 21:49, , 4F
內以判斷isnumeric，轉換上可以cint
03/27 21:49, 4F
→
03/28 10:36, , 5F
感謝S大 我再來研究看看
03/28 10:36, 5F
‣ 更多 ptguitar 的文章
文章代碼(AID): #1OsH7_WH (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ptguitar 的文章
文章代碼(AID): #1OsH7_WH (Office)