Developing.ru

В общем есть таблицы с числами типа:
-----------------------
1234 | 3456 | 8758|
----------------------
6567|44421|0 |
-----------------------

Блин, несколько сотен таблиц вручную набивал с бумажных листочков,
а оказалось, что надо последнюю цифру отделить запятой вот так :

-----------------------
123,4 | 345,6 | 875,8|
----------------------
656,7|4442,1|0 |
-----------------------

Как сделать макрос, чтоб на выделенных ячейках запятые проставлялись

Завтра отдавать работу надо!!! помогите!!!

Вот набросал на скорую руку, должен произвести нужную Вам замену в выделенном диапазоне.

Sub ReplaceComma()

Dim iCell As Range
Dim iData As Double

For Each iCell In Selection

iData = iCell.Value

If Not IsEmpty(iData) And IsNumeric(iData) = True Then
If iData <> 0 Then

iLen = Len(iCell)

If iLen = 1 Then
iLeft = 0
iRight = Right(iCell, 1)
ElseIf iLen > 1 Then
iLeft = Left(iCell, iLen - 1)
iRight = Right(iCell, 1)
Else

End If

iData = iLeft & "," & iRight

iCell.Value = iData

End If
End If

Next

End Sub

Можно ж гораздо проще 8)
Дополнение: Если однозначное число ("5", например) действительно обозначает "5", а не "0,5", то нужно еще добавить проверку Abs(iData)>9.

При таком раскладе можно просто разделить все числа на 10 стандартными средствами MS Excel.

P.S. Уменьшить чужой код всегда легче, чем написать свой.

Спасибо за помощь, вы мне очень помогли!