VBA新手求助：批量将字符串中的单引号替换为双单引号

针对你需要处理Collection中字符串单引号替换的需求，直接用VBA的Replace函数配合遍历Collection就能解决，下面是完整的可运行代码：

Sub ReplaceSingleQuotesInCollection()
    ' 模拟创建包含目标内容的Collection（替换成你自己的Collection对象即可）
    Dim col As New Collection
    col.Add "Row1 - Jhon's Car"
    col.Add "Row2 - Jhon's & Lucy's House"
    col.Add "Row3 - Chrisman is playing"
    col.Add "Row4 - Dina is dancing"
    
    Dim i As Integer
    ' 遍历Collection的每一个元素
    For i = 1 To col.Count
        ' 替换单引号为双单引号，并更新回原Collection
        col(i) = Replace(col(i), "'", "''")
    Next i
    
    ' 可选：把处理后的结果输出到立即窗口查看
    For i = 1 To col.Count
        Debug.Print col(i)
    Next i
End Sub

关键说明： #

• Replace(col(i), "'", "''")：核心替换语句，第一个参数是待处理的字符串，第二个是要替换的单引号，第三个是替换后的双单引号
• Collection的索引从1开始，所以遍历用For i = 1 To col.Count
• 如果你的Collection已经存在，直接删除模拟创建的代码段，使用你自己的Collection对象即可

处理前后对比： #

原内容：

Row1 - Jhon's Car
Row2 - Jhon's & Lucy's House
Row3 - Chrisman is playing
Row4 - Dina is dancing

处理后输出：

Row1 - Jhon''s Car
Row2 - Jhon''s & Lucy''s House
Row3 - Chrisman is playing
Row4 - Dina is dancing

内容的提问来源于stack exchange，提问作者Anil Kumar Mohapatra