Question

让我看看我是否可以再试一次。我有一个CSV文件。它代表逗号分隔值，这是一种文件格式。在此文件中，下面的每个单元格中有几列不同的数据。如果我在记事本中打开CSV文件，每个“单元格”用逗号分隔，因此文件格式名称。在Excel中，没有逗号。细胞明显被表边界线分开。我要做的是用一个分号替换F到H，第2行和第2行（也有数据）的逗号。文件中的其余逗号保持不变。

Answer 1

Sub AddSemicolonsINSTALLMENT()
    Dim vColumns As Variant, vColumn As Variant
    Dim rCol As Range, rCell As Range

    vColumns = Array("F", "G", "H")

    For Each vColumn In vColumns
        Set rCol = Range(Range(vColumn & "2"), Cells(Rows.Count, vColumn).End(xlUp)) '<<EDIT
        For Each rCell In rCol.Cells
            rCell.Value = ";" & Replace(rCell.Value, ",", ";") & ";"
        Next rCell
    Next vColumn

End Sub

在.csv文件中使用VBA仅用3列中的分号替换逗号

1 个答案: