22.05.2007, 19:38
общий
это ответ
Здравствуйте, Другов-Кручинский Владимир Валерьевич!
Посмотрите приложенный код, с его помощью я решал проблемы подобные Вашей.
Евгений.
Приложение:
Sub ConvertToNumber() Dim iR As Integer, vData, s, iLen As Integer, sF, iC As Integer, oCol As Object Set oCol = Application.InputBox("Укажите столбец в котором" & vbCrLf & _ "необходимо преобразовать текст в число:", , , , , , , 8) iC = oCol.Column Application.ScreenUpdating = False For iR = 1 To ActiveSheet.UsedRange.Rows.Count vData = Trim(Cells(iR, iC).Value) If vData <> "" Then sF = "" For iLen = 1 To Len(vData) s = Mid(vData, iLen, 1) If IsNumeric(s) Or s = "," Then sF = sF & s End If Next With Cells(iR, iC) If IsNumeric(sF) And sF <> "" Then .Value = 0 .NumberFormat = "General" .Formula = CDbl(sF) End If End With End If Next iREnd Sub