{quote}{login=Микки}{date=26.01.2012 01:21}{thema=заменить скопированный из 1С текст на число.}{post} Понятно простой "заменить на" этого сделать не получается. Пример прилагаю. Спасибо{/post}{/quote}Это почему? Меняем сначала запятую на пусто, потом точку на запятую.

Миш, я реагировал на ложное утверждение: "Понятно простой "заменить на" этого сделать не получается". Я даже процитировал его...  
А по всему листу не нужно: выделяем то, что нужно и меняем.

{quote}{login=Юрий М}{date=26.01.2012 01:37}{thema=}{post}Миш, я реагировал на ложное утверждение: "Понятно простой "заменить на" этого сделать не получается". Я даже процитировал его...  
А по всему листу не нужно: выделяем то, что нужно и меняем.{/post}{/quote}  
Юра я тебе больше скажу для конкретного столбца макрорекордером записал через "заменить на" , но проблема в другом, мне надо их сначала найти на всем  листе ..а потом их переделать.

И вообще не мешай - я с Соней разговариваю пока. Там дела поважнее - валюта, понимаешь ли...

{quote}{login=Микки}{date=26.01.2012 01:58}{thema=Re: }{post}{quote}{login=Юрий М}{date=26.01.2012 01:50}{thema=}{post}И как по-твоему макрос поймёт - вот ЭТО трогать, а вот ЭТО нет? Нужен какой-то критерий. Он у тебя есть?{/post}{/quote}  
Да я описал критерий ###,###,###,###.## этого недостаточно число разрядов разное в файле есть ...  А Соня просто прелесть я тебя понимаю Курс у нее только левый какой-то видимо валюта фальшивая{/post}{/quote}  
Не-а, капуста настоящая - баксовая, и курс нормалек, с оттенком KZ тяньга... ;)

{quote}{login=Ластик}{date=26.01.2012 03:14}{thema=}{post}Миш, у твоих ячеек не такой формат "###,###,###,###.##". У них обычный общий формат. Грубо говоря, текст. Так что, мне кажется, что если не знать в коком столбце точно находятся эти данные, то сложно будет преобразовать  
 
P.S. Из меня 1С никакой )) я больше по закупкам товара )){/post}{/quote}  
Нам еще ПРОДАКТ-МЕНЕДЖЕР нужен к слову.    
 
По теме а нельзя нарисовать образцы все возможные от #.## до ###,###,###,###.## и с ними сравнивать только желательно чтоб они были в теле макроса чтоб в книгу персональную пихнуть.  
Значит условия для поиска 1-ячейка, НЕЧИСЛО, и определенный Вид(есть список),  
так не получается или это трудно?

Макрос можно мопробовать такой (на 90% из макрорекордера):  
Sub Text1C()  
   Dim r As Range  
   Cells.Select  
   Selection.SpecialCells(xlCellTypeConstants, 2).Select  
   With Application  
       .DecimalSeparator = "."  
       .ThousandsSeparator = ","  
       .UseSystemSeparators = False  
   End With  
   For Each r In Selection: r.Value = r.Value: Next r  
   Application.UseSystemSeparators = True  
   [a1].Select
End Sub

Михаил, если предположить, что на листе только искомые ячейки будут содержать одну-единственную точку и при этом остальные символы будут только запятые и цифры - то может быть такой вариант (наверняка, можно сделать и попроще, но мне с моим небольшим опытом такой вариант первым пришел в голову):  
 
Dim r As Range, rst As Range, li&, tr As Boolean  
With New Collection  
For li = 0 To 9  
.Add 0, CStr(li)  
Next  
.Add 0, "."  
.Add 0, ","  
 
For Each r In ActiveSheet.UsedRange  
If InStr(1, r.Value, ".") > 0 And InStr(1, r.Value, ".") = InStrRev(r.Value, ".") Then  
 tr = True  
   
 For li = 1 To Len(r.Value)  
  On Error Resume Next  
  If IsEmpty(.Item(Mid(r.Value, li, 1))) Then  
  tr = False  
  End If  
  On Error GoTo 0  
 Next li  
   
 If tr Then  
  r.Value = Val(Replace(r.Value, ",", ""))  
  r.NumberFormat = "#,##0.00"  
 End If  
End If  
Next r  
End With

Пользуйтесь  
Надеюсь текста "1 штука" нет.  
Sub qqq()  
   Dim cll As Object  
   For Each cll In ActiveSheet.UsedRange.Cells  
       If Not IsNumeric(cll) Then  
           If IsNumeric(Left(cll, 1)) Then  
               cll.NumberFormat = "#,##0.00"  
               cll.Value = Val(Replace(Replace(cll.Value, ",", ""), ",", "."))  
           End If  
       End If  
   Next  
End Sub

{quote}{login=RAN}{date=26.01.2012 08:00}{thema=}{post}Надеюсь текста "1 штука" нет.{/post}{/quote}Зато найдётся 1 кг. :-)

Выкинул лишнее из макроса, записанного макрорекордером:  
Sub Text1C()  
Dim r As Range  
With Application  
   .DecimalSeparator = "."  
   .ThousandsSeparator = ","  
   .UseSystemSeparators = False  
End With  
For Each r In Cells.SpecialCells(xlCellTypeConstants, 2)  
   If r = " " Then r.ClearContents Else r = r.Value  
Next r  
Application.UseSystemSeparators = True  
End Sub  
 
PS: Как правило при импорте данных из 1С вместо пустых ячеек находятся одиночные пробелы, их нужно удалять, а то мешают дальнейшим расчетам

Так я и просил:  
{quote}{login=Юрий М}{date=26.01.2012 06:12}{thema=}{post}Миш, сбрось один листик со смешанными данными для тренировки.{/post}{/quote}

{quote}{login=Юрий М}{date=26.01.2012 08:57}{thema=Re: }{post}Так я и просил:  
{quote}{login=Юрий М}{date=26.01.2012 06:12}{thema=}{post}Миш, сбрось один листик со смешанными данными для тренировки.{/post}{/quote}{/post}{/quote}  
Обещанный листик

{quote}{login=Grin23}{date=26.01.2012 06:12}{thema=}{post}Михаил, если предположить, что на листе только искомые ячейки будут содержать одну-единственную точку и при этом остальные символы будут только запятые и цифры - то может быть такой вариант (наверняка, можно сделать и попроще, но мне с моим небольшим опытом такой вариант первым пришел в голову):  
 
Dim r As Range, rst As Range, li&, tr As Boolean  
With New Collection  
For li = 0 To 9  
.Add 0, CStr(li)  
Next  
.Add 0, "."  
.Add 0, ","  
 
For Each r In ActiveSheet.UsedRange  
If InStr(1, r.Value, ".") > 0 And InStr(1, r.Value, ".") = InStrRev(r.Value, ".") Then  
 tr = True  
   
 For li = 1 To Len(r.Value)  
  On Error Resume Next  
  If IsEmpty(.Item(Mid(r.Value, li, 1))) Then  
  tr = False  
  End If  
  On Error GoTo 0  
 Next li  
   
 If tr Then  
  r.Value = Val(Replace(r.Value, ",", ""))  
  r.NumberFormat = "#,##0.00"  
 End If  
End If  
Next r  
End With{/post}{/quote}  
 
Тоже на этой строке :  
For Each r In ActiveSheet.UsedRange  
!!! If InStr(1, r.Value, ".") > 0 And InStr(1, r.Value, ".") = InStrRev(r.Value, ".") Then