Question

我需要清除文本字符串中包含双引号（K）的列"中任何单元格的内容。文本字符串会有所不同，有些人会说3" hose，有些人会说10" road因此它不会相同而且只在该列中我需要清除单元格的内容（未删除，我不希望剩下的数据移动。

以下是我的尝试：

Sub Macro4()
    Rows("3:3").Select
    Selection.AutoFilter
    Range("K2").Select
    ActiveSheet.Range("$A$3:$V$3225").AutoFilter Field:=11, Criteria1:="=*""*" _
      , Operator:=xlAnd
    Range("K45").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Rows("3:3").Select
    Range("E3").Activate
    Selection.AutoFilter
    Range("A4").Select
End Sub

Answer 1

评论中的答案：

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

虽然你应该never use .Select所以我会使用：

Columns("K:K").Replace What:="''", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False

清除列中包含文本字符串中双引号的任何单元格的内容

1 个答案: