Автоповтор шапки таблицы в Word
Если приходится работать в Word с длинными таблицами, то очень поможет одна полезная функция, которая облегчит вам жизнь и сэкономит время.
Заголовки таблицы на каждой странице
Статья посвящается коллегам, и тем кто не ищет сложных путей. Дело в том, что при работе с длинными таблицами в Ворде, как правило люди для повтора заголовка таблицы на последующих страницах, копируют строчку которая является шапкой таблицы и вставляют на другой странице. Ничего в этом конечно страшного нет, но при редактировании таблицы, если добавить или удалить строчки, то заголовок страницы слетает. А если таблица у вас длинная, страниц 20 а то и 50, то править шапку таблицы на каждой странице дело не благодарное, тем более что для этого в Word предусмотрена специальная функция которая повторит заголовок таблицы на всех страницах автоматически.
1. Ставим курсор на первую строчку шапки таблицы, или выделяем несколько первых строчек которые будут повторяться. Важно выделить первую строчку, т.к. повторяются первая и последующие строчки таблицы.
2. В верхнем меню, на вкладке "Макет" справа нажать кнопку "Повторить строки заголовков", которая расположена справа. И все дела!
Примечание: Если необходимо повторить вторую строчку шапки таблицы с нумерациями колонок, то необходимо разорвать таблицу на второй странице, и проделать ту же операцию, вставив в заголовок строчку с нумерациями колонок.
Интересно. Как закрепить шапку таблицы Excel читайте здесь.
Верхний регистр в Word Shift + F3
Ну и на последок, для того чтоб перевести текст, заголовок таблицы или название раздела в верхний регистр, сделать так чтоб все буквы были большие пользуйтесь комбинацией клавиш Shift + F3. Не нужно печатать каждую букву с шифтом, а правильней будет выделить необходимую часть текста и нажать сочетание клавиш Shift + F3, и весь текст станет в верхнем регистре. Для того, чтоб буквы стали маленькими, а не заглавными проделайте тоже самое еще раз.
Как в таблице повторить заголовки. Видеоурок
Как убрать дублирование таблицы в ворде
При работе с электронными таблицами важно следить за тем, чтобы данные были актуальными и не содержали ошибок. Неверная информация может быть внесена самыми разными способами. В том числе одни и те же данные могут быть загружены или скопированы и вставлены несколько раз. Так появляются дубликаты, которые нужно удалить. Для этого существует специальная функция.
Удаляйте с умом
Перед тем как изложить последовательность шагов, проговорим несколько важных моментов.Вы можете удалить повторяющиеся значения из выбранного диапазона данных или форматированной таблицы.При запуске функции вы указываете, по каким столбцам нужно искать дубликаты. Очевидно, что выбор только одного параметра требует от пользователя большей внимательности и проверки, действительно ли в данном случае не может быть оправданных повторов. Выбор всех столбцов означает, что мы ищем полные копии строк. Если у нас две одинаковые строки, значит явно что-то задвоилось.Если вы выделите диапазон внутри большой таблицы, появится сообщение с предложением включить данные из смежных ячеек. Еще раз проверьте сами себя и нажмите «Развернуть» или «Удалить в выделенном диапазоне».Если вы сомневаетесь в выполненной операции и хотите восстановить удаленные данные, лучше сразу используйте кнопку «Отменить» на верхней панели инструментов или сочетание клавиш Ctrl+Z.
Как удалить дубликаты
Для иллюстрации возьмем пример таблицы, в которой специально продублированы две нижние строки.Сначала выделите нужный диапазон ячеек или всю таблицу. Осталось сделать четыре шага:
- Откройте вкладку «Данные», нажмите кнопку «Удалить дубликаты». Если система предложит поискать в смежных ячейках, согласитесь или отклоните предложение.
- Откроется окно «Удалить дубликаты». Вы можете поставить галочку в опции «Мои данные содержат заголовки» и исключить заголовки столбцов из поиска.
- Выберите нужные столбцы по отдельности или оставьте опцию «Выделить всё».
- Нажмите на кнопку «OK».
Появится окно с информацией о том, сколько повторов удалено и сколько уникальных значений осталось. Дубликатов нет, можно работать с данными дальше.
Как убрать дубли из агреггированной таблицы
Есть 4 таблицы. Word и Adj связанны отношением многие ко многие через таблицу Combinations. Examples связано отношением многие-к-одному Word Стоит задача получить значения для каждого слова (Word) в таком виде
people|young,other,live,new. |любой пример из examples person|. |любой пример из examples У меня запрос выдает некорреткные данные
select w.name word, GROUP_CONCAT(adj.name,',') adjectives, e.name from combinations c, "adjectives" adj, word w, examples e where c.word_id = w.id and c.adj_id = adj.id and e.word_id = w.id group by w.name ORDER by w.id 
Почему то дубли в колонке идут https://yadi.sk/d/f7VANwWFroiwlQ бд sqlite полная структура
CREATE TABLE adjectives ( id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, name TEXT NOT NULL ); CREATE TABLE combinations ( id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT UNIQUE, word_id INTEGER NOT NULL REFERENCES word (Id), adj_id INTEGER NOT NULL REFERENCES adjectives (id) ); CREATE TABLE examples ( id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, name INTEGER, word_id INTEGER REFERENCES word (Id) ); CREATE TABLE word ( Id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, name TEXT ); Как удалить повторяющиеся значения внутри ячейки?
При сцепке между категориями есть повторы. Как можно удалить повторяющиеся значения именно В САМИХ ячейках (т.е не между строками, типа удаления дубликатов а в самих ячейках)? Список большой, примерно 130к строк, поэтому вручную точно не вариант этим заниматься.
- Вопрос задан более года назад
Простой 4 комментария
Убирать дубликаты нужно перед этапом сцепления, а не после получения результата.
Александр, согласен, но это немного другой случай
Решения вопроса 2
Совершенствовать среду обитания
Формула для Гугл Таблиц:
=BYROW(A2:A4;LAMBDA(rng;JOIN("/";UNIQUE(ArrayFormula(SPLIT(TRIM(rng);"/";1;1));1))))Вместо A2:A4 укажите свой диапазон.
Ответ написан более года назад
Нравится 1 Комментировать
Учитель, автоэлектрик, программист, музыкант
В качестве text можно передать весь столбец
Ответ написан более года назад
Как убрать дублирование таблицы в ворде
Возникла необходимость скопировать в Word листы всей книги, выполнив прежде с ними некоторые идентичные действия, но, т.к. в Excel должны остаться листы без изменений сделано следующее: создается новый лист -> на него копируется таблица -> объединяются ячейки и т.п. -> таблица с нового листа вставляется в Word -> новый лист удаляется -> Next.
Тут возникает проблема: объединенные ячейки копируются не с одного листа, а со всех и получается в Word следующая картина: В Лист1 стоит: Наименование 1 -> Документ1 получается: Наименование 1 В Лист2 стоит: Наименование 2 -> Документ2 получается: Наименование 1Наименование 2 В Лист3 стоит: Наименование 3 -> Документ3 получается: Наименование 1Наименование 2Наименование 3 и т.д.
Подскажите, что не так в этом макросе?
Const sDELIM As String = «» Dim rCell1 As Range Dim sMergeStr1 As String StrVal = StrVal NextStr
i = Application.Worksheets.Count For iList = 1 To i Worksheets(iList).Activate
Range(«A:J»).Copy Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = «New» Set wb = ActiveWorkbook ActiveWorkbook.Sheets(«New»).Paste Selection.Cells(1).Select
S1 = «Наименованин» Cells.Find(What:=S1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate I1 = Selection.Column J1 = Selection.Row Range(Cells(J1 — 2, I1), Cells(J1 + 1, I1)).Select With Selection If TypeName(Selection) <> «Range» Then Exit Sub With Selection For Each rCell1 In .Cells sMergeStr1 = sMergeStr1 rCell1.Text Next rCell1 Application.DisplayAlerts = False .Merge Across:=False Application.DisplayAlerts = True .Item(1).Value = Mid(sMergeStr1, 1 + Len(sDELIM)) End With .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Range(Cells(J1 — 1, I1), Cells(J1 + 1, 10)).Delete Shift:=xlUp Selection.Cells(1).Select
Range(«A:J»).Select Selection.Rows.AutoFit Selection.Copy
Set wa1 = CreateObject(«Word.Application») wa1.Visible = True: Set wd1 = wa1.Documents.Add wa1.Selection.PasteExcelTable False, False, False Application.CutCopyMode = False wa1.Run «Макрос1»
Application.DisplayAlerts = False wb.Sheets(«New»).Delete Application.DisplayAlerts = True
