有时候数据是通过Excel复制粘贴到明细表中的，有一些数据录入的不规范，需要改为规范的数据，除了使用查找替换之外，还可以用VBA来自由替换。VBA如下

1.         Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
   
2.             If e.Shape.Name = "Button 1" Then
   
3.                 Dim r As IRange
   
4. 
   
5.                 For Each r In Range("T_125")      'T_125为明细表表名，在管理数据表中可得
   
6.                     If r.Text = Range("H2").Text Then    'H2是替换前的内容
   
7.                         r.Value = Range("J2").Text       'J2是替换后的内容
   
8.                     End If
   
9.                 Next
   
10.                 MessageBox.Show("替换完毕！")
    
11.             End If
    
12.         End Sub '按钮/标签点击事件

复制代码

就是利用按钮执行,遍历单元格对象,取单元格对象的TXT属性,赋值给新的单元格

就是利用按钮执行,遍历单元格对象,取单元格对象的TXT属性,赋值给新的单元格