作者ptguitar (佩蒂吉他)
看板Office
标题[算表] 众多工作表文字转数字范围问题
时间Mon Mar 27 21:22:04 2017
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1490620927.A.811.html
1F：→ soyoso: 如要抓取最右侧有值的栏号的话，如工作表sheet2，可以 03/27 21:42
2F：→ soyoso: range.find，searchdirection为xlprevious配合after 03/27 21:45
3F：→ soyoso: 也可以回圈for each..next集合以range.specialcells 03/27 21:48
4F：→ soyoso: 内以判断isnumeric，转换上可以cint 03/27 21:49
5F：→ ptguitar: 感谢S大 我再来研究看看 03/28 10:36