|
'第一个问题的解决方法,写一个循环,对每个单元格进行操作,比如说处理范围是: 100*100, 如下:
. i) V1 h8 a( ^- _ k* Q3 l8 JSub bbb()& N' f4 y. j$ W
Dim i As Long, ii As Long, curStr As String, pos As Long, curValue As Double% l' I& b5 R7 r6 \9 v5 O( ~
Dim Sht As Worksheet
8 @4 f; d2 ^% p: ^" B' j) o , b& \! n, y1 Y% H( D1 ?1 N
Set Sht = ThisWorkbook.ActiveSheet
! O% v5 g$ i3 \' P6 q For i = 1 To 100/ a$ `9 z8 h& |& l5 \! H: F$ V
For ii = 1 To 1001 {* i7 A& j0 {2 W# F
curStr = Sht.Cells(i, ii)
* N& d. T0 d# {3 k( P& l0 Q( R R If Len(curStr) > 0 Then1 p" I6 S8 H: G; O) X: R6 X, s0 F }
pos = InStr(curStr, "/"), G6 b4 \, R! f6 L7 H9 |+ L' H6 Q
If pos > 0 Then: T2 s, Q3 \( g( c, u1 d" l F3 ?
curValue = CDbl(Left$(curStr, pos - 1)) / Right$(curStr, Len(curStr) - pos)/ o6 K6 V3 x1 [) [+ r" Z% p5 Y% p5 h
Sht.Cells(i, ii) = curValue
+ `( U) ^8 u. y& ] End If( P: `0 [ {2 u* b# b: B
End If3 [) `% m& T( ?2 M9 M$ q6 H% `
Next ii
; W5 r( O/ P# V( g C/ ~ o6 V Next i
* k9 `0 W+ E1 ^# h C. GEnd Sub
1 n. [8 [" F, M5 i1 a% _+ T$ M
不怎么会用excel, 所以代码可能麻烦了,如果哪位高人有更简单的转换方法,欢迎赐教。/ V* N g( f# g- s- a
2 ^( h' p7 v5 v+ l: q5 V4 g" G[ 本帖最后由 kangson 于 13.8.2008 23:13 编辑 ] |
|