问题说明：
在工作中往往会遇到以达西作为单位的渗透率表示形式，比如3.77×10[-5]，方括号内数字为上标，为了使用方便我们经常会将这样的数据格式转换成以毫达西（即10[-3]，十的负三次方）的形式。如果数据比较少，手工转换就可以了，但如果数据很多，比如成百上千个数据，要是用手工就会被累死，不累死也得被郁闷死，说不定中途还会出现很多错误呢，因此，我以前写了这么一个excel宏代码简单实现这样的功能。
使用说明：
——————————————————————————
1、打开“渗透率转换程序.xls”，将欲转换的数据复制到第一列（A列）下面，从第2行起，在B1单元格内输入欲转换数据的个数；
2、按快捷键“ctrl+k”，或运行宏“kkk”，在第三列（C列）下面就会自动生成转换成毫达西的渗透率数据了。
——————————————————————————
这个是非常简单的但也比较使用的宏程序，对于高手来说就是cake了，对于不太会用宏的朋友来说可能还有些用吧。
- Sub KKK()
- Dim i As Integer
- mycount = Sheet1.Cells(1, 2) '定义数据个数
-
- For i = 2 To mycount + 1
-
- On Error Resume Next
- if Right(Sheet1.Cells(i, 1), 2) <0 then
- rt = Right(Sheet1.Cells(i, 1), 2)
- lft = Left(Sheet1.Cells(i, 1), 4)
- else
- rt = 0
- lft = Sheet1.Cells(i, 1)
- end if
- Sheet1.Cells(i, 3) = lft * 10 ^ (rt + 3)
-
- Next
- End Sub
