|
'第一个问题的解决方法,写一个循环,对每个单元格进行操作,比如说处理范围是: 100*100, 如下:; z- k/ n1 W8 F% r
Sub bbb()
& O1 H) m3 y# B" C3 ` Dim i As Long, ii As Long, curStr As String, pos As Long, curValue As Double
1 y# N, J4 F2 i4 E+ K- G Dim Sht As Worksheet
5 k: }0 K: b7 B% |
) |! p! Q L/ X Set Sht = ThisWorkbook.ActiveSheet
" n) I3 E4 [7 a' ?" s For i = 1 To 100
1 L) P; j. V1 T4 ~9 A( k% X For ii = 1 To 100
( e' Z$ D( k% _9 ?0 K+ } curStr = Sht.Cells(i, ii)# t' }7 ~5 Q" ?
If Len(curStr) > 0 Then
' i [: [: s+ u+ |5 k' V- g pos = InStr(curStr, "/")# Y9 z5 F% G' \' X
If pos > 0 Then S5 {. L/ q$ h3 n- W0 [+ u: l- q
curValue = CDbl(Left$(curStr, pos - 1)) / Right$(curStr, Len(curStr) - pos)
% ~+ n( C# A6 C' n4 k$ z7 N, S7 z Sht.Cells(i, ii) = curValue
; Q1 L9 z- s. ^& R2 G2 O7 e+ [( y+ ?3 w End If
3 M+ `2 H" s/ ~; e" }. R End If& k, _% f, J4 R8 J& [3 s$ \
Next ii U6 w. ]9 d' D; a* S
Next i
+ U; k3 M" q+ [2 Z; \End Sub. M$ j2 D; x& N
( [9 g( @2 l+ ?8 n! T. x* }
不怎么会用excel, 所以代码可能麻烦了,如果哪位高人有更简单的转换方法,欢迎赐教。 v+ P# F! y' A( q( W' m# x
4 J, ~- J& N+ S/ W/ s
[ 本帖最后由 kangson 于 13.8.2008 23:13 编辑 ] |
|