Excel：查找和替换宏 - 仅一列

Question

我已经编写了一些宏来将一堆数据格式化为相同的可接受格式，我们从中获取的程序拒绝将数据拉到我们想要的范围，但理论上在Excel中更改并不难。

设置运行的方式是为修改器设置单独的宏，然后是“全部运行”宏，只调用它们。

目前我有：

Sub ReplaceTitleMs()
'
' Strips Mrs from Headteacher Name
'
'
'
 Columns("V").Select
 Cells.Replace What:="Ms ", Replacement:="", LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

但是当我运行它时，它会从整个工作表中删除Ms并且一列需要Ms仍然在单元格中（这是W列）

有效的数据示例如下：

Ms Helen Smith
Ms Brenda Roberts
Ms Kirsty Jones

但是还有许多其他标题被使用，所以我想在宏必须选择的列上运行查找和替换。

宏工程找到我想要它的列...我只需要将它限制在该列！

Answer 1

您需要正确限定Replace()方法的范围

Sub ReplaceTitleMs()
    Columns("V").Replace    What:="Ms ", _
                            Replacement:="", _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False
End Sub

Answer 2

您的数据为基础（这是正常capitilised），以避免错误的比赛，你应该设置MatchCase为True，以避免扑杀的喜欢Mrs Nancy Adams以Mrs Nancy Ada

Columns("V").Replace "Ms ", vbNullString, xlPart, xlByRows, True

要完全防弹，你要么

1. 使用AutoFilter进行检测和删除
2. 使用Find和FindNext构建一系列匹配项，然后仅删除匹配正确的前三个字符

Answer 3

在选定单元格中搜索和替换

1. 按“ ALT + F11 ”键快捷键（即按住ALT键并在最后一次释放时按F11键）打开Microsoft Visual Basic for Applications窗口。

2. 单击“ Insert > Module ”（即从“ Insert ”菜单中单击“ Module ”），然后将以下代码粘贴到模块窗口中。

Sub ReplaceInSelection()
    Dim rng As Range
    Dim workRng As Range
    Dim find$
    Dim replace$
On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set workRng = Application.Selection
    Set workRng = Application.InputBox("Range", "Select Range", workRng.Address, Type:=8)
    find = Application.InputBox("Find:", "Select what to find")
    replace = Application.InputBox("Replace with:", "Select replacement")
    For Each rng In workRng
        If rng.Value = find Then
            rng.Value = replace
        End If
    Next
End Sub

3. 现在关闭Microsoft Visual Basic for Applications窗口
4. 并选择要转换为可单击超链接的URL文本范围。
5. 然后按“ ALT + F8 ”键（或旧版excel中的F5 ），运行代码点击运行，同时选择“ ReplaceInSelection ”
6. 然后会打开一个弹出对话框，您可以更改以前选择的范围，然后单击“ OK
7. 然后将打开另一个弹出对话框，以指定您要find
8. 然后，最后会打开一个弹出对话框，指定您想要replace发现的内容

全部完成！ 已搜索所选单元格以find您指定要find ，并再次更改您指定要replace with 。