Pantera3587
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
The okk
Я уже думала об этом, но дело в том , что таблицы на листах могут отличаться, т.е. в одной таблице на листе ЗП данных по строкам может быть больше, чем на листе КолЧас. Когда количество данных по строка совпадает, единственное что они могут быть разбросаны в хаотичном порядке, то проблем нет. Я уже это попробовала без макроса. В акцесе эта задача тоже очень легко решаема. А вот в экселе не могу придумать как выполнить эту задачу. В принципе нашала здесь один код:
Sub СЦЕПИТЬ()
Dim Rowcounter As Long
With Selection
For Rowcounter = 1 To .End(xlDown).Row
If Len(.Cells(Rowcounter, 1)) = 0 Then
Exit For
End If
.Cells(Rowcounter, 1) = .Cells(Rowcounter, 1) & "-" & _
.Cells(Rowcounter, 2)
Range(Cells(Rowcounter, 1), Cells(Rowcounter, 2)).Merge
Next
End With
End Sub
Т.е. мы как-бы из двух столбцов делаем один на одном листе и тоже самое на другом листе, но этот код во-первых, объединяет два столбца, нажав при этом мгного раз на кнопку ОК в открывающемся окне, т.е. если таблица содержит 100 строк, то инажать надо кнопку ОК 100 раз, во-вторых, после этого кода происходит объединение двух ячеек и сортировка в таком случае не работает. Надо снимать объединение. Хотя этот код можно было бы как-то применить, если бы он в первом столбце создавал текст из значений двух ячеек, но при этом не объединял бы их. Тогда можно применить сортировку, т.к. соединенные значения уже не будут совпадать.
Добавлено:
Yuk
Вообще то не исключено, что в одном отделе может находится, например несколько Сидоровых. Наверное, тогда надо включать еще какой-нибудь столбец с данными, которые бы были отличны у одинаковых фамилий.
Добавлено:
The okk
Кстати, этот код нашла у тебя на странице 55 |
