Сам макрос выглядит так(файл с примером прилагаю):
в столбцах N:R находятся числа с разделителями точками, их Sub Удалить_пробелы1 и кромсает.
может кто подскажет как в коде поменять, чтобы точки не трогало оно?? меня хватило на "заплатку", обратная замена запятых на точки:
| Код |
|---|
Sub Удалить_пробелы1()
' есть случаи перевода точек в запятые -- имей введу!
Dim arr(), spl
Dim lr As Long, lc As Long, I As Long, ii As Long, j As Long
lr = Cells.Find(what:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).row
lc = Cells.Find(what:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Column
arr() = Range("a1").Resize(lr, lc).Value
For I = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
spl = Split(arr(I, j), Chr(10))
For ii = 0 To UBound(spl)
spl(ii) = WorksheetFunction.Trim(spl(ii))
Next ii
arr(I, j) = Join(spl, Chr(10))
Next j
Next I
Range("a1").Resize(lr, lc).Value = arr()
End Sub
|
может кто подскажет как в коде поменять, чтобы точки не трогало оно?? меня хватило на "заплатку", обратная замена запятых на точки:
| Код |
|---|
Sub tочка()
' '4. Замена запятой на точку.
ActiveSheet.Columns("N:R").Replace what:=",", Replacement:=".", _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
|
