|
'第一个问题的解决方法,写一个循环,对每个单元格进行操作,比如说处理范围是: 100*100, 如下:
, M* r+ q6 d/ }: h, USub bbb()
* d+ M( O! c3 S1 _" m l4 x Dim i As Long, ii As Long, curStr As String, pos As Long, curValue As Double, v! B/ ^- d/ A. y3 A9 s
Dim Sht As Worksheet; ~. e1 @# a& t. V- B& ^
% f* h: Z! i# P- D+ A
Set Sht = ThisWorkbook.ActiveSheet2 G1 [4 \9 t# v: U! M& g2 O
For i = 1 To 1001 o# f' p d+ B7 c- ~4 }
For ii = 1 To 100/ `! q0 A7 ]9 u0 ?8 t9 M
curStr = Sht.Cells(i, ii)+ U. M# D* a* E I+ `' L; a5 ]1 x
If Len(curStr) > 0 Then
% X5 I, l! x+ f' I) A# p3 m2 [/ C pos = InStr(curStr, "/")6 [3 E1 @2 H; i7 j
If pos > 0 Then$ c. ]# t* g& b F$ ^0 G' `) k( K
curValue = CDbl(Left$(curStr, pos - 1)) / Right$(curStr, Len(curStr) - pos)
/ l8 K, C! X9 F) J! Z( L- |+ h, W Sht.Cells(i, ii) = curValue
5 t5 q* @; ?- o End If i% R" S/ _& c3 I1 r, H
End If
; A2 k: a" b3 w0 X9 e1 F5 j& K Next ii& e- N$ A4 {: Z2 P }
Next i
2 t+ F, I5 a, tEnd Sub# {. H( q( s% n {* Z' I
9 |0 D i6 k6 h1 Q4 H. @6 z0 X7 R2 q
不怎么会用excel, 所以代码可能麻烦了,如果哪位高人有更简单的转换方法,欢迎赐教。
9 {" F5 l1 K3 P7 g. Y$ t
* R! X! E1 I4 }4 U- l[ 本帖最后由 kangson 于 13.8.2008 23:13 编辑 ] |
|