Последовательное объединение ячеек из двух столбцов

@Павел Андреев · Регистрация: 12.11.2014

Author24 — интернет-сервис помощи студентам

Ситуация такая: Есть два столбца - в одном написаны имена, в другом фамилии (причём фамилий намного больше). Как переписать в третий столбец все сочетания ячеек из первых двух столбцов?

Наглядно:

Анна	Петрова
Евгения	Воронцова
Мария	Зеленская
	Орлова
	Авдеева

и т.д.

Чтобы получилось Анна Петрова, Анна Воронцова, Анна Зеленская и т.д.; Евгения Петрова, Евгения Воронцова и т.д.

По идее самый логичный вариант это создать формулу, когда первая ячейка первого столбца сочетается со всеми ячейками из второго, потом вторая ячейка первого столбца сочетается со всеми ячейками из второго и т.д. Наверно, примерно так: А1+(*В*)=С1
Но я не знаю как создать эту формулу или же как по другому решить этот вопрос.
Знатоки, подскажите, пожалуйста!

@snipe · 13.11.2014, 07:09

я вижу два способа решения вашей задачи
оба предполагают написание макроса
способ первый
запустить 2 цикла один внутри другого и перебрать все варианты
способ второй
написать sql запрос который создаст рекордсет со всеми вариантами и загрузить рекордсет в нужный столбец

второй способ работает быстрее (по идее)

для наглядности нужен файл с данными и что куда вставлять

@Павел Андреев · 13.11.2014, 16:21 **[ТС]**

snipe, спасибо большое! Мне уже написали макрос:

@olegator13god · 07.11.2015, 13:05

Сообщение от Павел Андреев

snipe, спасибо большое! Мне уже написали макрос:

А как изменить количество скрепляемых столбцов и где в макросе указывается какие именно столбцы склеиваются?? Допустим если надо склеивать 1 3 5 столбы, что надо поменять в макросе?

@AlexM · 07.11.2015, 14:54

Сообщение от Павел Андреев

я не знаю как создать эту формулу

Вот так можно

Код

=ЕСЛИ(СЧЁТЗ(B$1:B$99)*СЧЁТЗ(A$1:A$99)>=СТРОКА();ИНДЕКС(A$1:A$99;-ЦЕЛОЕ(-СТРОКА()/СЧЁТЗ(B$1:B$99)))&" "&ИНДЕКС(B$1:B$99;ОСТАТ(СТРОКА()-1;СЧЁТЗ(B$1:B$99))+1);"")

Имена в столбце А, фамилии в столбце В начинаются с первой строки. Формулу вставить в С1 и тянуть вниз

@snipe · 08.11.2015, 05:51

olegator13god,
вот написал комменты к макросу Павел Андреев
надеюсь сами разберетесь что и куда

Visual Basic

Sub Macro1()
Dim LR1 As Long, LR2 As Long, i As Long, j As Long, n As Long
    LR1 = Cells(Rows.Count, 1).End(xlUp).Row 'переменной LR1 присваевается количество строк в первом столбце (Cells(Rows.Count, 1) - вот эта 1 это номер столбца)
    LR2 = Cells(Rows.Count, 2).End(xlUp).Row 'переменной LR2 присваевается количество строк во втором столбце (Cells(Rows.Count, 2) - вот эта 2 это номер столбца)
    n = 1
    For i = 1 To LR1 ' цикл перебора строк
        For j = 1 To LR2 ' цикл перебора строк
            Cells(n, 4) = Cells(i, 1) & " " & Cells(j, 2) ' вывод информации в 4 столбец
            n = n + 1
        Next j
    Next i
End Sub

@olegator13god · 09.11.2015, 09:55

Сообщение от snipe

olegator13god,
вот написал комменты к макросу Павел Андреев
надеюсь сами разберетесь что и куда

Visual Basic

Sub Macro1()
Dim LR1 As Long, LR2 As Long, i As Long, j As Long, n As Long
    LR1 = Cells(Rows.Count, 1).End(xlUp).Row 'переменной LR1 присваевается количество строк в первом столбце (Cells(Rows.Count, 1) - вот эта 1 это номер столбца)
    LR2 = Cells(Rows.Count, 2).End(xlUp).Row 'переменной LR2 присваевается количество строк во втором столбце (Cells(Rows.Count, 2) - вот эта 2 это номер столбца)
    n = 1
    For i = 1 To LR1 ' цикл перебора строк
        For j = 1 To LR2 ' цикл перебора строк
            Cells(n, 4) = Cells(i, 1) & " " & Cells(j, 2) ' вывод информации в 4 столбец
            n = n + 1
        Next j
    Next i
End Sub

спасибо большое! Разобрался!

@snipe 4081 / 1461 / 401 Регистрация: 07.08.2013 Сообщений: 3,656
	13.11.2014, 07:09	2
	я вижу два способа решения вашей задачи оба предполагают написание макроса способ первый запустить 2 цикла один внутри другого и перебрать все варианты способ второй написать sql запрос который создаст рекордсет со всеми вариантами и загрузить рекордсет в нужный столбец второй способ работает быстрее (по идее) для наглядности нужен файл с данными и что куда вставлять 0

@olegator13god 0 / 0 / 0 Регистрация: 05.11.2015 Сообщений: 16
	07.11.2015, 13:05	4
	Сообщение от Павел Андреев snipe, спасибо большое! Мне уже написали макрос: А как изменить количество скрепляемых столбцов и где в макросе указывается какие именно столбцы склеиваются?? Допустим если надо склеивать 1 3 5 столбы, что надо поменять в макросе? 0

@AlexM 2904 / 1718 / 705 Регистрация: 04.09.2015 Сообщений: 3,445
	07.11.2015, 14:54	5
	Сообщение от Павел Андреев я не знаю как создать эту формулу Вот так можно Код =ЕСЛИ(СЧЁТЗ(B$1:B$99)*СЧЁТЗ(A$1:A$99)>=СТРОКА();ИНДЕКС(A$1:A$99;-ЦЕЛОЕ(-СТРОКА()/СЧЁТЗ(B$1:B$99)))&" "&ИНДЕКС(B$1:B$99;ОСТАТ(СТРОКА()-1;СЧЁТЗ(B$1:B$99))+1);"") Имена в столбце А, фамилии в столбце В начинаются с первой строки. Формулу вставить в С1 и тянуть вниз 0

	09.11.2015, 09:55