主题：vba操作删除excel表指定的行，然后替换指定列的内容或符号？

vba操作删除excel表指定的行，然后替换指定列的内容或符号？

当前代码如下：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\Users\Administrator\Desktop\廉政档案\廉政档案建设花名册 - 副本.xls")
For i As Integer=1 To 2
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(i)
    Dim Rg As MSExcel.Range = Ws.Rows("1:3")
    Rg.EntireRow.Delete(MSExcel.XlDirection.xlToLeft)  '右面的单元格左移
    'Dim Rg1 As MSExcel.Range
    'Rg1 = Ws.Range(Ws.Cells(0,9))
    'Rg1.Value = "入党时间及党派"
  
Next
''wb.save
App.Visible = True
'app.quit

能够实现数据前三行的删除 

请教一下  怎么实现（）符号的删除呢，或者其他变通方法实现内容的替换呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:廉政档案建设花名册 - 副本.xls

此主题相关图片如下：12.png

弹不出值

当前代码如下：

Dim App1 As New MSExcel.Application
Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.Open("C:\Users\Administrator\Documents\Foxtable项目\廉政档案\Attachments\廉政档案建设干部花名册.xls")
For i1 As Integer=1 To 2
    Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(i1)
   
    Dim Rg1 As MSExcel.Range
   
    Rg1 = Ws1.Range(Ws1.Cells(4,10))
   
    Dim s As String = Rg1.Value
    MessageBox.Show(s)
    s = s.replace("(","")
    Rg1.Value = s
   
   
Next
App1.Visible = True