写一个把D列单元格内的()替换成-,然后最后一位符号- 去掉的VBA代码
时间: 2024-05-25 16:17:04 浏览: 12
Sub ReplaceParentheses()
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
For i = 1 To lastRow
If Right(ActiveSheet.Range("D" & i).Value, 1) = "-" Then
ActiveSheet.Range("D" & i).Value = Replace(ActiveSheet.Range("D" & i).Value, "(", "-")
ActiveSheet.Range("D" & i).Value = Replace(ActiveSheet.Range("D" & i).Value, ")", "-")
ActiveSheet.Range("D" & i).Value = Left(ActiveSheet.Range("D" & i).Value, Len(ActiveSheet.Range("D" & i).Value) - 1)
Else
ActiveSheet.Range("D" & i).Value = Replace(ActiveSheet.Range("D" & i).Value, "(", "-")
ActiveSheet.Range("D" & i).Value = Replace(ActiveSheet.Range("D" & i).Value, ")", "-")
End If
Next i
End Sub
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)