写一个 A列单元格内的() 替换成-,并去掉最后一位- 的VBA代码
时间: 2024-06-05 12:06:07 浏览: 24
Sub ReplaceParentheses()
Dim cell As Range
For Each cell In Range("A:A")
If InStr(cell.Value, "(") > 0 Then
cell.Value = Replace(cell.Value, "(", "-")
cell.Value = Left(cell.Value, Len(cell.Value) - 1)
End If
Next cell
End Sub
相关问题
写一个把D列单元格内的()替换成-,并去掉最后一位符号-的VBA代码
Sub replace_parentheses()
Dim lastRow As Long
lastRow = Range("D" & Rows.Count).End(xlUp).Row '获取最后一行的行号
For i = 1 To lastRow '循环每一行
If InStr(1, Range("D" & i), "(") > 0 Then '判断是否有(符号
Range("D" & i) = Replace(Range("D" & i), "(", "-") '替换
End If
If Right(Range("D" & i), 1) = "-" Then '判断最后一位是否为-符号
Range("D" & i) = Left(Range("D" & i), Len(Range("D" & i)) - 1) '去掉最后一位
End If
Next i
End Sub
写一个把D列单元格内的()替换成-,然后最后一位符号- 去掉的VBA代码
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://img-home.csdnimg.cn/images/20210720083646.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)