如何在VBA中修整十进制值

Question

运行我们的设置后，它将生成一个如下所述的文件。前几行将包含一些内容，这些内容没有问题。在几行之后，它将创建具有几列的数据。

在第2列中将具有测试名称，在第4列中将具有测量值。测量值是十进制值。例如，我们的期望是，如果该行中的“ TestName”为Tthd，Athd或Dthd，则我们应在“ Measured”列中的点（。）之后修剪值。

实际

Number   TestName       Low            Measured      High         Loc 

 8        Tthd          -320.0000     -308.2870     -300.0000      0       
 8        Tthd         -320.0000      -308.2886     -300.0000      0    
 2        Tmath         8.0100         8.0100        8.0100        0       
 2        Tmath         8.0100         8.0100        8.0100        0              
 108      Athd         -320.0000      -308.2870     -300.0000      0       
 108      Athd         -320.0000      -308.2886     -300.0000      0       
 208      Dthd         -320.0000      -308.2870     -300.0000      0       
 208      Dthd         -320.0000      -308.2886     -300.0000      0      
 10       Trms          650.0000 m     707.1068 m    760.0000 m    0       
 10       Trms          650.0000 m     707.1068 m    760.0000 m    0        

预期

Number   TestName       Low            Measured      High         Loc 

 8        Tthd         -320.0000      -308          -300.0000      0       
 8        Tthd         -320.0000      -308          -300.0000      0    
 2        Tmath         8.0100         8.0100        8.0100        0       
 2        Tmath         8.0100         8.0100        8.0100        0              
 108      Athd         -320.0000      -308          -300.0000      0       
 108      Athd         -320.0000      -308          -300.0000      0       
 208      Dthd         -320.0000      -308          -300.0000      0       
 208      Dthd         -320.0000      -308          -300.0000      0      
 10       Trms          650.0000 m     707.1068 m    760.0000 m    0       
 10       Trms          650.0000 m     707.1068 m    760.0000 m    0

运行我们的设置后，它将生成一个如下所述的文件。前几行将包含一些内容，这些内容没有问题。在几行之后，它将创建具有几列的数据。在...

Answer 1