Excel: как выровнять совпадающие значения между двумя столбцами и распределить различия

16734
Beej

У меня есть два столбца данных, которые перекрываются, выглядя примерно так:

------------------------- | Aardvarks | Bears | | Bears | Dogs | | Cats | Giraffes | | Giraffes | Hippos | | Monkeys | Rhinos | | Rhinos | Zebras | -------------------------

Есть ли способ выровнять совпадающие значения между двумя столбцами, при этом добавляя пустые ячейки, где существуют различия, так что я получаю конечный результат, как это:

------------------------- | Aardvarks | | | Bears | Bears | | Cats | | | | Dogs | | Giraffes | Giraffes | | | Hippos | | Monkeys | | | Rhinos | Rhinos | | | Zebras | -------------------------

Я видел, как люди задают подобные вопросы здесь, но все полагаются на то, что столбец Aимеет какие-то «полные» данные, а столбец B - неполные данные, требующие сортировки.

Моя проблема заключается в том, что оба столбца содержат дублирующиеся и уникальные данные (в приведенном выше примере столбец Aне содержит всех животных).

Есть ли способ выровнять и расположить столбцы, чтобы получить конечный результат, который я ищу?

1
Добро пожаловать в Супер пользователя. что ты уже испробовал? CharlieRB 8 лет назад 0
Можем ли мы предположить, что оба списка имеют общие слова в одной и той же последовательности? Можем ли мы также предположить, что количество необходимых пустых строк не обязательно равно одному? fixer1234 8 лет назад 0
Возможно, вы могли бы сделать это с помощью формул, но логичным решением будет VBA. fixer1234 8 лет назад 0
@ fixer1234, да на оба вопроса. Beej 8 лет назад 0
Обратите внимание, что https://superuser.com не является бесплатным сервисом для написания скриптов / кодов. Если вы сообщите нам, что вы уже пробовали (включая скрипты / код, который вы уже используете) и где вы застряли, мы можем попытаться помочь с конкретными проблемами. Вам также следует прочитать [Как мне задать хороший вопрос?] (Https://superuser.com/help/how-to-ask). DavidPostill 8 лет назад 0

2 ответа на вопрос

2
Beej

Извините, что трачу время на людей, но после еще большего поиска в Интернете я нашел решение своей проблемы.

Я нашел этот сайт ниже, который предлагает VBA решение проблемы, с которой я столкнулся. Сценарий отлично работал для того, чего я надеялся достичь.

http://sites.madrocketscientist.com/jerrybeaucaires-excelassistant/text-functions/line-up-matches

Пожалуйста, процитируйте основные части ответа по ссылочной ссылке (ссылкам), так как ответ может стать недействительным, если связанные страницы изменятся. DavidPostill 8 лет назад 1
0
Ben

Сайт, кажется, не работает ... к счастью, я сохранил полезный VB в прошлом году

Option Explicit  Sub LineEmUp() 'Author: Jerry Beaucaire 'Date: 7/5/2010 'Summary: Line up a random number of columns so all matching ' items are on the same rows Dim LC As Long Dim Col As Long Dim LR As Long Application.ScreenUpdating = False  'Spot last column of data LC = Cells(1, Columns.Count).End(xlToLeft).Column  'Add new key column to collect unique values Cells(1, LC + 1) = "Key" For Col = 1 To LC Range(Cells(2, Col), Cells(Rows.Count, Col)).SpecialCells(xlConstants).Copy _ Cells(Rows.Count, LC + 1).End(xlUp).Offset(1) Next Col  Columns(LC + 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(1, LC + 2), Unique:=True Columns(LC + 2).Sort Key1:=Cells(2, LC + 2), Order1:=xlAscending, Header:=xlYes  'Fill in new table headers w/formatting Range("A1", Cells(1, LC)).Copy Cells(1, LC + 3)  'Fill in new table values LR = Cells(Rows.Count, LC + 2).End(xlUp).Row With Range(Cells(2, LC + 3), Cells(LR, LC + 2 + LC)) .FormulaR1C1 = "=IF(ISNUMBER(MATCH(RC" & LC + 2 & ",C[-" & LC + 2 _ & "],0)), RC" & LC + 2 & ", """")" .Value = .Value End With  'Cleanup/Erase old values Range("A1", Cells(1, LC + 2)).EntireColumn.Delete xlShiftToLeft Columns.Autofit Application.ScreenUpdating = True End Sub

Похожие вопросы