Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Привести в один формат данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Привести в один формат данных (Формулы/Formulas)
Привести в один формат данных
alicxxi6705 Дата: Вторник, 09.08.2022, 18:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Уважаемые форумчане, есть одни и те же данные но в разных форматах в двух разных файлах, и при объединении их и последующем удалении дубликатов, они как дубликаты не считаются, как можно сделать так, чтобы привести их в один заданный формат данных одного файла?
К сообщению приложен файл: 4504243.xlsx(9.8 Kb)


Сообщение отредактировал alicxxi6705 - Среда, 10.08.2022, 09:33
 
Ответить
СообщениеУважаемые форумчане, есть одни и те же данные но в разных форматах в двух разных файлах, и при объединении их и последующем удалении дубликатов, они как дубликаты не считаются, как можно сделать так, чтобы привести их в один заданный формат данных одного файла?

Автор - alicxxi6705
Дата добавления - 09.08.2022 в 18:16
jakim Дата: Вторник, 09.08.2022, 18:40 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1115
Репутация: 295 ±
Замечаний: 0% ±

Excel 2010
Пример приложите пожалуйста.
 
Ответить
Сообщение
Пример приложите пожалуйста.

Автор - jakim
Дата добавления - 09.08.2022 в 18:40
Nic70y Дата: Среда, 10.08.2022, 10:05 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 7722
Репутация: 1852 ±
Замечаний: 0% ±

Excel 2010
дело не в форматах, а пробелах
[vba]
Код
Sub u_700()
    Application.ScreenUpdating = True
    For Each u In ActiveSheet.UsedRange
        u.Value = Application.Trim(u)
    Next
    ActiveSheet.UsedRange.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
    Application.ScreenUpdating = False
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщениедело не в форматах, а пробелах
[vba]
Код
Sub u_700()
    Application.ScreenUpdating = True
    For Each u In ActiveSheet.UsedRange
        u.Value = Application.Trim(u)
    Next
    ActiveSheet.UsedRange.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
    Application.ScreenUpdating = False
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 10.08.2022 в 10:05
alicxxi6705 Дата: Среда, 10.08.2022, 10:32 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Можете ткнуть пальцем, куда это все нужно напечатать
 
Ответить
СообщениеМожете ткнуть пальцем, куда это все нужно напечатать

Автор - alicxxi6705
Дата добавления - 10.08.2022 в 10:32
Nic70y Дата: Среда, 10.08.2022, 10:45 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 7722
Репутация: 1852 ±
Замечаний: 0% ±

Excel 2010
Alt+F11
создать Module

апдэйт
или Ctrl+h
Найти: - вводите два пробела и *
Заменить на: - ничего не пишете
жмете кнопку Заменить все
К сообщению приложен файл: 4504243.xlsm(18.7 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 10.08.2022, 10:48
 
Ответить
СообщениеAlt+F11
создать Module

апдэйт
или Ctrl+h
Найти: - вводите два пробела и *
Заменить на: - ничего не пишете
жмете кнопку Заменить все

Автор - Nic70y
Дата добавления - 10.08.2022 в 10:45
alicxxi6705 Дата: Среда, 10.08.2022, 11:15 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Спасибо большое
 
Ответить
СообщениеСпасибо большое

Автор - alicxxi6705
Дата добавления - 10.08.2022 в 11:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Привести в один формат данных (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!