Как изменить сокращение штата США на полное название штата в Excel?

Вопрос или проблема

Существует ли дополнение для MS Excel или что-то подобное, что изменяет аббревиатуры штатов США на полные названия штатов?

Изменить:

  • GA на Джорджия
  • CA на Калифорния
  • FL на Флорида

Это ужасно делать поиск и замену, потому что:

  • Поиск: ID
  • Замена: Айдахо

Что затем изменяет Флорида на Флоридахо.

Так что я постоянно возвращаюсь и исправляю этот беспорядок.

Перейдите в ДАННЫЕ, а затем выберите География. Затем я выбираю ячейки, перехожу в ДАННЫЕ и конвертирую в текст, иначе это постоянно выполняет поиск.

Это не идеально, но большинство из них будет заменено. У меня были проблемы, когда оно конвертировало IL в Израиль и MO в Молдову, подумайте только.

Вы можете использовать формулу IF (неаккуратно, но эффективно) для замены.

Где столбец B содержит сокращенный ID штата, используйте это в столбце C (или другом столбце):

=IF(B2="AL","Алабама",IF(B2="AK","Аляска",IF(B2="AZ","Аризона",IF(B2="AR","Арканзас",IF(B2="AS","Американское Самоа",IF(B2="CA","Калифорния",IF(B2="CO","Колорадо",IF(B2="CT","Коннектикут",IF(B2="DE","Деловер",IF(B2="DC","Округ Колумбия",IF(B2="FL","Флорида",IF(B2="GA","Джорджия",IF(B2="GU","Гуам",IF(B2="HI","Гавайи",IF(B2="ID","Айдахо",IF(B2="IL","Иллинойс",IF(B2="IN","Индана",IF(B2="IA","Айова",IF(B2="KS","Канзас",IF(B2="KY","Кентукки",IF(B2="LA","Луизиана",IF(B2="ME","Мэн",IF(B2="MD","Мэриленд",IF(B2="MA","Массачусетс",IF(B2="MI","Мичиган",IF(B2="MN","Миннесота",IF(B2="MS","Миссисипи",IF(B2="MO","Миссури",IF(B2="MT","Монтана",IF(B2="NE","Небраска",IF(B2="NV","Невада",IF(B2="NH","Нью-Гэмпшир",IF(B2="NJ","Нью-Джерси",IF(B2="NM","Нью-Мексико",IF(B2="NY","Нью-Йорк",IF(B2="NC","Северная Каролина",IF(B2="ND","Северная Дакота",IF(B2="MP","Северные Марианские острова",IF(B2="OH","Огайо",IF(B2="OK","Оклахома",IF(B2="OR","Орегон",IF(B2="PA","Пенсильвания",IF(B2="PR","Пуэрто-Рико",IF(B2="RI","Род-Айленд",IF(B2="SC","Южная Каролина",IF(B2="SD","Южная Дакота",IF(B2="TN","Теннесси",IF(B2="TX","Техас",IF(B2="TT","Территории под опекой",IF(B2="UT","Юта",IF(B2="VT","Вермонт",IF(B2="VA","Вирджиния",IF(B2="VI","Виргинские острова",IF(B2="WA","Вашингтон",IF(B2="WV","Западная Вирджиния",IF(B2="WI","Висконсин",IF(B2="WY","Вайоминг")))))))))))))))))))))))))))))))))))))))))))))))))))))))))

Это просто пройдет через каждый штат, используя IF, пока не найдет соответствие и затем заменит его на имя.

Если вы хотите сделать формулу короче, вы можете создать новый лист/таблицу для индекса ID штатов и названий:

AL  Алабама
AL  Алабама
AK  Аляска
AZ  Аризона
AR  Арканзас
AS  Американское Самоа
CA  Калифорния
CO  Колорадо
CT  Коннектикут
DE  Деловер
DC  Округ Колумбия
FL  Флорида
GA  Джорджия
GU  Гуам
HI  Гавайи
ID  Айдахо
IL  Иллинойс
IN  Индана
IA  Айова
KS  Канзас
KY  Кентукки
LA  Луизиана
ME  Мэн
MD  Мэриленд
MA  Массачусетс
MI  Мичиган
MN  Миннесота
MS  Миссисипи
MO  Миссури
MT  Монтана
NE  Небраска
NV  Невада
NH  Нью-Гэмпшир
NJ  Нью-Джерси
NM  Нью-Мексико
NY  Нью-Йорк
NC  Северная Каролина
ND  Северная Дакота
MP  Северные Марианские острова
OH  Огайо
OK  Оклахома
OR  Орегон
PA  Пенсильвания
PR  Пуэрто-Рико
RI  Род-Айленд
SC  Южная Каролина
SD  Южная Дакота
TN  Теннесси
TX  Техас
TT  Территории под опекой
UT  Юта
VT  Вермонт
VA  Вирджиния
VI  Виргинские острова
WA  Вашингтон
WV  Западная Вирджиния
WI  Висконсин
WY  Вайоминг

А затем используйте VLOOKUP, чтобы получить результат (где индекс штата находится в столбцах F:G):

=VLOOKUP(B2,$F:$G,2,FALSE)

Ответ или решение

Как заменить аббревиатуры штатов США на полные названия в Excel

Если вы часто работаете с данными, содержащими аббревиатуры штатов США в Excel, вы можете столкнуться с проблемой преобразования этих аббревиатур в полные названия. Существуют несколько методов для решения этой задачи, каждый из которых имеет свои достоинства и ограничения. Давайте рассмотрим наиболее эффективные способы.

1. Использование функции VLOOKUP

Один из самых простых и удобных способов замены аббревиатур на имена штатов — это использование функции VLOOKUP (Поиск по вертикали). Для этого вам нужно создать отдельный список, содержащий все аббревиатуры и соответствующие полные названия штатов.

Шаги для выполнения:
  1. Создайте таблицу соответствий:
    В новом листе Excel создайте таблицу, где в первом столбце будут аббревиатуры, а во втором — полные названия. Например:

    |  AB | Полное название     |
    | --- | ------------------- |
    | AL  | Алабама             |
    | AK  | Аляска              |
    | AZ  | Аризона             |
    | CA  | Калифорния         |
  2. Используйте VLOOKUP:
    Предположим, что ваши аббревиатуры находятся в столбце B (начиная с ячейки B2), а ваша таблица на новом листе расположена в столбцах F и G. В этом случае вы можете использовать следующую формулу в ячейке C2:

    =VLOOKUP(B2, $F:$G, 2, FALSE)

    Затем просто перетащите эту формулу вниз по столбцу C, чтобы применить её ко всем строкам.

2. Использование многоуровневой функции IF

Если у вас не много данных и вы хотите сделать это без дополнительных таблиц, можно использовать многоуровневую функцию IF (ЕСЛИ). Однако этот метод менее эффективен для больших наборов данных, так как количество вложенных IF ограничено.

Пример формулы:
=IF(B2="AL","Алабама", IF(B2="AK","Аляска", IF(B2="CA","Калифорния", ... )))

Эта формула может стать достаточно громоздкой, поэтому рекомендуется использовать её только для небольших таблиц.

3. Использование функции VBA

Если вы хотите автоматизировать процесс и имеете большую таблицу, вы можете воспользоваться VBA (Visual Basic for Applications) для создания макроса. Этот способ требует некоторого понимания программирования, но он может существенно упростить ваш труд.

Пример кода VBA:
Sub ReplaceStateAbbreviations()
    Dim cell As Range
    Dim stateMap As Object
    Set stateMap = CreateObject("Scripting.Dictionary")

    ' Загрузка аббревиатур и их названий
    stateMap.Add "AL", "Алабама"
    stateMap.Add "AK", "Аляска"
    stateMap.Add "CA", "Калифорния"
    ' Добавьте остальные штаты...

    ' Заменяем в выбранном диапазоне
    For Each cell In Selection
        If stateMap.Exists(cell.Value) Then
            cell.Value = stateMap(cell.Value)
        End If
    Next cell
End Sub

Этот код заменит аббревиатуры на полные названия для всех выбранных ячеек.

Заключение

Как вы видите, существует несколько успешных способов замены аббревиатур штатов на их полные названия в Excel. Выбор метода зависит от объема данных и ваших предпочтений. Использование функции VLOOKUP является наиболее оптимальным подходом для средних и крупных наборов данных, так как позволяет избежать ошибок и долгоиграющих проблем, связанных с ручной заменой. Применяйте выбранный метод, и работа с данными станет проще и эффективнее.

Оцените материал
Добавить комментарий

Капча загружается...