小编hmn*_*mnd的帖子

我想使用替换功能仅替换MID单元格中出现的确切位置，而不是所有出现的位置。
前任。我想替换位置六（第一次出现）的###in +++++###****###，而不是第二个。

For Each c In .Columns(3).Cells
    If c.Value = "" Then
    Else
    Do While Len(c.Value) < 20
         c.Value = c.Value & " "
    Loop
    transNum = Mid(c.Value, 6, 3)
    c.Value = Replace(c.Value, Mid(c.Value, 6, 3), "")
    c.Value = "0" & transNum & c.Value
    End If
    y.Sheets(1).Range("E" & c.Row) = y.Sheets(1).Range("E" & c.Row) & c.Value
Next c