word vba求助

如何把1,2,3行的数字调整成 保留小数点后四位数字把123行下面的行调整成保留1位的形式

	1	2	3
1	0.00817***	0.00982***	0.09102
	5.08	4.43	0.68
2	0.01037***	0.02066***	0.00988
	6.42	4.99	0.71
3	0.01365***	0.01588***	0.01696
	6.45	4.68	0.99

放到excel用公式就操作就好，没有必要用VBA

1. =IF($A1<>"",TEXT(LEFT(B1,IF(ISERR(FIND("*",B1)),999,FIND("*",B1)-1)),"0.0")&IF(ISERR(FIND("*",B1)),"",MID(B1,FIND("*",B1),999)),B1)

复制代码

没有会的啊

小鳄鱼a 发表于 2014-11-5 19:31
没有会的啊

星号要保留吗？
不要让人猜，把结果模拟出来啊

芐雨 发表于 2014-11-6 10:02
星号要保留吗？
不要让人猜，把结果模拟出来啊

保留啊

顺手写个VBA吧

1. Private Sub CommandButton1_Click()
   
2.     Dim n&, i&, j&, s, k
   
3.     On Error Resume Next
   
4.     With ActiveDocument.Tables(1)
   
5.         For n = 2 To .Rows.Count Step 2
   
6.             For i = 2 To 4
   
7.                 s = .Cell(n, i).Range
   
8.                 k = Replace(Mid(s, InStr(s, "*")), Chr(13), "")
   
9.                 .Cell(n, i).Range = Format(Val(s), "0.0") & k
   
10.                 k = ""
    
11.             Next
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码