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

[ptguitar (佩蒂吉他)]

軟體: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
→ soyoso: 如要抓取最右側有值的欄號的話，如工作表sheet2，可以
→ soyoso: range.find，searchdirection為xlprevious配合after
→ soyoso: 也可以迴圈for each..next集合以range.specialcells
→ soyoso: 內以判斷isnumeric，轉換上可以cint
→ ptguitar: 感謝S大 我再來研究看看