小编Srp*_*pic的帖子

我有 1 列，应包含金额，但其格式不正确，并且被视为文本。

因此，需要将点替换为空，然后将逗号替换为点。我有代码：

Private Sub Correction_of_dot()
    Dim i As String
    Dim k As String
    i = "."
    k = ""
    Columns("P:P").Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False
End Sub

Private Sub Correction_of_comma()
    Dim i As String
    Dim k As String
    i = ","
    k = "."
    Columns("P:P").Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False
End Sub

但它什么也没做...没有错误，只是加载，然后什么也没有发生。你能告诉我，我做错了什么或者我可以做得更好吗？

非常感谢！

我正在尝试创建excel模板(数据量将因情况而异),它看起来像这样:

每一个偶数行都是"客户",我想把每一个奇怪的行放在"Ledger"中.基本上它应该将"Ledger"放到每个奇数行,直到C列中有数据.我有这样的代码:

'========================================================================
' INSERTING LEDGERS for every odd row (below Customer)
'========================================================================

Sub Ledgers()

    Dim rng As Range
    Dim r As Range
    Dim LastRow As Long

    LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
    Set rng = .Range("C5:C" & LastRow)

    For i = 1 To rng.Rows.Count
        Set r = rng.Cells(i, -2)
        If i Mod 2 = 1 Then
            r.Value = "Ledger"
        End If

    Next i

End Sub

但它给我一个错误消息无效或不合格的引用.你能告诉我,我有错误吗？

非常感谢!