virgüllü rakamları sayıya ve tutara çevir me

[esad45]

ek listedeki rkamlar paket programdan geldiği için rakamlar karışık ve toplam rakamı toplamıyor virgülleri noktaya çevirsem de olmuyor bunları nasıl rakama çevirebilirim

 

[Merhum İdris SERDAR]

.

Bu kodu deneyin.

Sub Macro1()

    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "100"
    Range("C1").Select
    Selection.Copy
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide
    Range("C1") = ""
End Sub

.