интересный макрос

[jojorr]

Встретил задачу. Думал быстро решу,но не заладилось......

В общем условие:

"Макрос должен значения ячеек фамилия2,имя2,отчество2,дата рождения2 записать в одну ячейку через "\". Потом в тот же столбец таким же макаром фамилия1, имя1 ,отчество1,дата рождения1. При этом совпадающие строки поставить вместе"

[jojorr]

1)результат должен быть в новой книге
2)результат не должен заменить источник
3)да,в списке могут быть пропуски
4)размер разный
5)совпадающие строки должны быть вместе в каждой колонке

[EducatedFool]

Думал быстро решу,но не заладилось......

Что, вообще ни одной строки кода не удалось написать?

интересный макрос

Что же в нем интересного?
Делайте тогда его сами - не будем же мы лишать вас шанса поработать над ИНТЕРЕСНЫМ макросом...

[Казанский]

Пробуйте

Option Explicit

Sub jojorr()
Dim ash As Worksheet, c As Range, r As Range
Set ash = ActiveSheet
Workbooks.Add xlWBATWorksheet
Set c = ActiveCell
Set r = ash.Range("E2")
GoSub jojorr1
Set r = ash.Range("A2")
GoSub jojorr1
[A1].Sort [A1], xlAscending, header:=xlNo
Exit Sub
jojorr1:
For Each r In Range(r, ash.Cells(ash.Rows.Count, r.Column).End(xlUp))
    c = r & "\" & r(, 2) & "\" & r(, 3) & "\" & r(, 4).Text
    Set c = c(2)
Next
Return
End Sub

[jojorr]

Спасибо огромное. Вы дали прекрасную идею!!!!