vba - 如果有数字继续替换 "and '，然后清理其余部分

Question

我是宏游戏的新手，但我学得很快。这是我的问题:

我有一个数据表，其中包含特殊字符的描述，在转换为 .csv 文件时我们无法上传到另一个系统。我已经把大部分内容都写下来，用什么替换版权符号，但引号和撇号仍然是一个问题。我的一些数据将如下所示:

48"显示器

“P2-Cam”变焦

使用“无障碍”15 英尺电缆

我需要解析此列中的单元格(在我的示例中为“C”)，如果前面有数字，则将 "替换为英寸或将 ' 替换为英尺，但如果没有，则将其完全删除。

这是我到目前为止写下的内容:

Sub RemoveSpecialCharacters()

  ' Removes Special Characters from cells
  '
  Columns("C:C").Select
  Selection.Replace What:="™", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False

  Columns("C:C").Select
  Selection.Replace What:="®", Replacement:="", LookAt:=xlPart, _
  SearchOrder:= xlByRows, MatchCase:=False, SearchFormat:=False, _ 
  ReplaceFormat:=False

  Columns("C:C").Select
  Selection.Replace What:="©", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
End Sub

我意识到我可以设置所有规范。字符作为数组，但我目前没有足够的练习。一些在线指南很有帮助，但显然我需要进行更多研究。

非常感谢!

Answer 1

根据其中一条评论，您最好的选择是使用正则表达式。这是一种方法，但它不会处理同一字符串中的多个匹配项。它只会处理第一个匹配项(“或') - 最好对其进行修改，以便递归获取字符串中的所有匹配项(如果这对您来说是个问题)。我假设您的所有字符串都在“A”列中第一个工作表的一部分。如果您希望扩展它，至少这是一个示例:

Sub ReplaceFtAndInches()
  Dim regExInFt As New RegExp

  regExInFt.Pattern = "\s*(-{0,1}\d*\.{0,1}\d+)\s*(\""|\')\s+"

  With Sheets(1):
    Dim val As String

    Dim i As Integer, pos As Integer
    Dim mat As Object
    Dim str As String

    For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row:
      val = .Cells(i, "A").Value
      Set mat = regExInFt.Execute(val)
      If mat.Count = 1 Then
        str = mat(0).SubMatches(1)
        pos = InStr(1, val, str)
        If str = """" Then
          .Cells(i, "A") = Mid(val, 1, pos - 1) & " inches" & Mid(val, pos + 1) 
       Else
          .Cells(i, "A") = Mid(val, 1, pos - 1) & " feet" & Mid(val, pos + 1)
        End If
      End If
    Next
 End With

End Sub

正则表达式查找任意数量的空格，后跟负数或正数的小数/整数，后跟任意数量的空白字符，然后是 "或 '。它将 "转换为英寸，将 ' 转换为英尺。

请注意，要在 excel 中启用正则表达式，您应该遵循此 post 中的说明。 .