Question

我想用一个范围内的逗号替换分号。

以下代码仅删除分号，它不会将逗号放在其位置。

  Range("AU2:AU250").Select
  Selection.Replace What:=";", Replacement:=",", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False

Answer 1

试试这个......

Sub Comma()
    Dim R As Range, C As Range

    Set R = Range([AU2], [AU250])

    For Each C In R.Cells
        C = Replace(C, ";", ",")
    Next C

End Sub

这是恕我直言，更像VBA的方法，使用范围对象，而不是模拟在与工作表直接交互时使用的Excel内容

Answer 2

您可以复制从csv文件中的CSV范围粘贴一些有问题的单元格吗？但是在wordpad中打开它，而不是在excel中。

另外，您使用的是什么版本的Excel？我没有设法在2003年或2010年发生这种情况。

我认为你需要不止一次这样做是为什么你要制作一个宏或找到/替换失败你是否发布宏代码以获得帮助呢？： - ）

用逗号替换分号

2 个答案: