|
|
|
'第一个问题的解决方法，写一个循环，对每个单元格进行操作，比如说处理范围是: 100*100, 如下:2 g! Y- l# [4 U1 M) q! R
Sub bbb()
5 ?8 M5 r/ D% [ Dim i As Long, ii As Long, curStr As String, pos As Long, curValue As Double/ C4 H+ i$ a* R; P
Dim Sht As Worksheet
! ~$ L8 i E1 e# S% X, R1 c0 P
" d# Q) h- _' n. {. J/ r4 q8 y) ?* B Set Sht = ThisWorkbook.ActiveSheet
( L+ t4 t" M0 _1 Z' f( w, k For i = 1 To 1005 ~+ }. B0 \! N9 C2 g. a3 B
For ii = 1 To 1001 ]$ _: ?1 |; i+ y9 L4 _2 Y
curStr = Sht.Cells(i, ii)
N1 N* _: ?( M1 _! Q4 q: ? If Len(curStr) > 0 Then. @0 R* O0 s* B( t) `
pos = InStr(curStr, "/")
3 O2 `4 j2 @ C If pos > 0 Then- w, N: Q3 G) R
curValue = CDbl(Left$(curStr, pos - 1)) / Right$(curStr, Len(curStr) - pos)
$ f3 i* ^. L+ T: j Sht.Cells(i, ii) = curValue8 P/ p l0 h1 h
End If# H4 ?3 K k' E8 H
End If$ _% ^) f7 @; r) X
Next ii+ S% A! T) `# `+ @. C" b% ]
Next i
$ t0 |/ T; E5 IEnd Sub; |; ?$ z* W* `) z' j5 |/ i
, D6 r. a9 p/ u& | p% E8 e
不怎么会用excel, 所以代码可能麻烦了，如果哪位高人有更简单的转换方法，欢迎赐教。& E+ P7 M! R0 G5 }2 m, B, B# O
; Z* _. ?4 X6 h/ c4 k[ 本帖最后由 kangson 于 13.8.2008 23:13 编辑 ] |
|
楼主: hubeck
狗仔卡
楼主
显身卡
发表于 13.8.2008 13:51:20
