Добрый день! В выгруженном с интернета файле числа не суммируются. Формула работает только если значения ячеек перебить в ручную. Пробовала менять формат, не помогает. Помогите пожалуйста разобраться.
Добрый день! В выгруженном с интернета файле числа не суммируются. Формула работает только если значения ячеек перебить в ручную. Пробовала менять формат, не помогает. Помогите пожалуйста разобраться.Gulnaz
Здравствуйте. Числа сохранены как текст. Чтобы перевести в число, выделите любую пустую ячейку -- Копировать -- выделите диапазон с проблемными числами -- Специальная вставка -- Сложить -- ОК
Здравствуйте. Числа сохранены как текст. Чтобы перевести в число, выделите любую пустую ячейку -- Копировать -- выделите диапазон с проблемными числами -- Специальная вставка -- Сложить -- ОКPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Выделите столбец F, нажмите Контрл+h, встаньте в поле "Найти", держа нажатым Альт, наберите на цифровой клавиатуре 0160 (или просто скопируйте пробел из ячейки F4 и вставьте его в поле "Найти"), отпустите Альт и нажмите "Заменить все"
Выделите столбец F, нажмите Контрл+h, встаньте в поле "Найти", держа нажатым Альт, наберите на цифровой клавиатуре 0160 (или просто скопируйте пробел из ячейки F4 и вставьте его в поле "Найти"), отпустите Альт и нажмите "Заменить все"_Boroda_
Сталкивался с похожей проблемой с выгрузками. Решил программно. Слегка модифицировал своё решение для Вашего случая.
Код перебирает все задействованные на активном листе ячейки и убивает системный пробел.
[vba]
Код
Sub Убить_Пробел_в_числах()
'Макрос заменяет пробелы в ЧИСЛАХ на пустоту. 'Написал Роман Воронов voronov_rv@mail.ru
Dim RngX As Range
Application.ScreenUpdating = False
For Each RngX In ActiveSheet.UsedRange 'Перебираем все ячейки в выделении If Not IsNull(RngX.Value) Then 'Если в ячейке что-то есть, то... If InStr(1, RngX.Text, Chr(160)) Then 'Если в ячейке есть числовой пробел, то... RngX = Replace(RngX, Chr(160), "") 'Заменяем пробел на пустоту RngX.NumberFormat = "0.00" RngX.FormulaR1C1 = Int(RngX.Value) End If End If Next RngX
Application.ScreenUpdating = True
End Sub
[/vba]
Gulnaz, здравствуйте.
Сталкивался с похожей проблемой с выгрузками. Решил программно. Слегка модифицировал своё решение для Вашего случая.
Код перебирает все задействованные на активном листе ячейки и убивает системный пробел.
[vba]
Код
Sub Убить_Пробел_в_числах()
'Макрос заменяет пробелы в ЧИСЛАХ на пустоту. 'Написал Роман Воронов voronov_rv@mail.ru
Dim RngX As Range
Application.ScreenUpdating = False
For Each RngX In ActiveSheet.UsedRange 'Перебираем все ячейки в выделении If Not IsNull(RngX.Value) Then 'Если в ячейке что-то есть, то... If InStr(1, RngX.Text, Chr(160)) Then 'Если в ячейке есть числовой пробел, то... RngX = Replace(RngX, Chr(160), "") 'Заменяем пробел на пустоту RngX.NumberFormat = "0.00" RngX.FormulaR1C1 = Int(RngX.Value) End If End If Next RngX