Excel VBA 删除单元格内指定范围的字符串

   1、如下图所示的黄色标注的的内容“南京”，我们需要将其删除，但是不影响其他内容。

    2、使用快捷键“Ctrl+F”调出“查找和替换”窗口，在查找内容栏中输入“南京”。

   3、搜索出所有内容后，使用快捷键“Shift + A”全选所有搜索结果后单击“关闭”按钮。

      4、在选中数据的单元格所在区域单击右键，调出右键菜单，选择删除。

    5、此时会弹出如下图的删除选项，若要不影响其他内容，此处选择下方单元格上移。

   6、最后给出一个效果图供参考。

你可以参考我写的这个sub
你可以在实际操作的时候，换乘function，用他的参数来传入ss的值。

Public Sub test()
Dim ss As String, ii As Integer, jj(9) As Integer, str1 As String

ss = "在工一有我人[要工]有和在[国为是]工要在[了在有工主]一上地在要"
ii = Len(ss)
For jj(0) = 1 To ii

If Mid(ss, jj(0), 1) <> "[" And jj(1) <> 1 Then

If Mid(ss, jj(0), 1) <> "]" Then
str1 = str1 & Mid(ss, jj(0), 1)
End If
Else
jj(1) = 1
If Mid(ss, jj(0), 1) = "]" Then jj(1) = 0
End If

Next jj(0)

End Sub

Ctrl+h

查找中输入 [*]

替换中保持为空

确定就可以了,还用什么vba.

子易空间站 - Excel培训专家