Здравствуйте, помогите написать макрос, который будет объединять данные из нескольких ячеек в одну. Все подробно написала в книге! На данный момент пользуюсь функцией СЦЕПИТЬ, но это занимает очень много времени.
PQ есть, дома, а вот на работе какая версия не знаю. Узнаю только завтра С PQ никогда не работала и только сегодня узнала о существовании. Буду разбираться куда это все вставить
PQ есть, дома, а вот на работе какая версия не знаю. Узнаю только завтра С PQ никогда не работала и только сегодня узнала о существовании. Буду разбираться куда это все вставить
Делаю: получить данные из таблицы, выделяю таблицу, открывается расширенный редактор, стираю все что там написано, вставляю запрос. Шипменты собираются, но столбец А открывается на новом листе, а не сразу в таблице. Так и должно быть или я что-то делаю не так? И еще, мне нужно будет каждый раз делать запрос, когда вставляю новую таблицу, с новыми данными?
Все, вопросов больше нет просто сохранять в существующий лист, а при вставке новых данных обновлять Теперь мне нужно понять как удалить дубликаты, в этой же таблице недоступно "удалить дубликаты"
Таблица видоизменена, и если честно, то я вообще не понимаю что вы в ней делали. Мне нужен первоначальный вид, только без дубликатов. Таблица синхронизируется с другим документом и из нее заполняется форма для печати документов. Менять местами столбцы и группировать по ТК нельзя
Удалить дубликаты я могу, только если копирую таблицу, вставляю ее как значения на другой лист. Неужели на этом же листе совсем нельзя? Мне нужен вид, как на втором листе книги
Здравствуйте! В этой теме buchlotnik предложил запрос данных из таблицы, но работает запрос немного неправильно, подробности я описала внутри книги. Помогите, пожалуйста!
buchlotnik, я просто отталкивался от формулы, которая в файле и там она с фигурными скобками(скрины во вложении), то есть идет как массив. соответственно и интересуюсь, у вас, как вы вносили данную формулу? ведь в фигурных скобках может быть только массив?
я ее просто вносил и протягивал - но у меня 365 офис; в старых версиях - вводите формулу в A2 через ctrl+shift+enter - получаете формулу массива в одной ячейке, а ее уже просто протягиваете
Соблюдение правил форума не освобождает от модераторского произвола
глория написал: Чувствует мое сердце, что нужно просить Excel 2019
Можно и по старинке, макросом :)
Код
Sub qqq()
Dim fio$, fio2$, ship$, rez$, i&, j&, r&
r = Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Лист1").ListObjects("Таблица1").Sort.SortFields _
.Clear
ActiveWorkbook.Worksheets("Лист1").ListObjects("Таблица1").Sort.SortFields _
.Add Key:=Range("F2"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Лист1").ListObjects("Таблица1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
For i = 2 To r
fio = Cells(i, 4).Value
ship = Cells(i, 2).Value
For j = 2 To r
fio2 = Cells(j, 4).Value
If fio2 = fio Then
ship = ship & "_" & Cells(j, 2)
End If
Next j
Cells(i, 1).Value = ship
Next i
For i = 2 To r
j = Len(Cells(i, 1)) - 7
Cells(i, 1) = Right(Cells(i, 1), j)
Next i
Application.ScreenUpdating = True
End Sub