Как удалить пустое место в таблице в ворде
Перейти к содержимому

Как удалить пустое место в таблице в ворде

  • автор:

Добавление и удаление таблиц в Pages на iPhone

В Pages доступны различные стили таблиц, которые помогут Вам представить информацию. После добавления таблицы можно настроить ее по своему усмотрению.

Размещение новой таблицы

В текстовых документах можно добавить новую таблицу внутри основного текста, чтобы она перемещалась вместе с текстом по мере ввода, или свободно разместить ее на странице как плавающий объект, чтобы она не перемещалась при редактировании текста.

В документах с макетом страницы новые таблицы всегда добавляются на страницу, и их можно свободно перемещать.

  1. Выполните одно из описанных ниже действий.
    • Встраивание таблицы в текст. Коснитесь текста там, где нужно разместить таблицу. Теперь таблица будет перемещаться вместе с текстом. То есть, если ввести текст перед таблицей, она сместится вниз. Для добавленной таблицы используются те же настройки выравнивания, что и для абзаца, поэтому нельзя отцентрировать таблицу, если абзац выровнен по левому или правому краю.
    • Свободное перемещение таблицы в тексте. Коснитесь в области без текста, чтобы вывести точку вставки из текста. После добавления таблицы можно переместить ее в любую часть текста, так как ее положение не фиксировано.
  2. Коснитесь , затем коснитесь . Смахните влево или вправо, чтобы увидеть больше вариантов. Встроенные макеты таблиц соответствуют текущему шаблону.
  3. Коснитесь таблицы, которую хотите добавить на страницу.
  4. Для добавления содержимого в ячейку дважды коснитесь ее, затем введите данные; коснитесь элемента «Готово» в панели инструментов для скрытия клавиатуры.
  5. Чтобы переместить таблицу, коснитесь ее, затем перетяните в ее левом верхнем углу.

Примечание. Если таблицу не удается свободно переместить, значит, она настроена на перемещение с текстом. Чтобы выключить эту настройку, выберите таблицу, коснитесь , коснитесь вкладки «Расстановка», затем коснитесь параметра «Двигать с текстом», чтобы выключить его.

  • Выполните одно из указанных ниже действий.
    • Добавление и удаление строк. Коснитесь таблицы, коснитесь в левом нижнем углу таблицы, затем касайтесь стрелок.
    • Изменение размеров таблицы. Коснитесь таблицы, коснитесь в ее левом верхнем углу, затем перетяните синюю точку в правом нижнем углу, чтобы пропорционально изменить размеры таблицы.
    • Изменение настройки чередования цветов строк. Коснитесь таблицы, коснитесь , коснитесь «Таблица», затем включите или выключите параметр «Чередующ. строки».
    • Изменение внешнего вида таблицы. Коснитесь таблицы, коснитесь , затем используйте элементы управления форматированием для внесения изменений.
  • Создание таблицы на основе существующих ячеек

    Если Вы создаете новую таблицу на основе ячеек имеющейся таблицы, данные в исходных ячейках перемещаются, а не копируются. В исходной таблице остаются пустые ячейки, которые можно удалить.

    1. Выберите ячейки с данными, которые Вы хотите использовать для создания новой таблицы.
    2. Коснитесь выбранной области и удерживайте ее, пока она не поднимется. Затем перетяните ее в другое место в документе.
    3. Чтобы удалить пустые ячейки из исходной таблицы, выберите их и коснитесь «Удалить».

    Удаление таблицы

    • Коснитесь таблицы, коснитесь в ее левом верхнем углу, затем коснитесь «Удалить».

    Копирование и вставка таблицы

    1. Коснитесь таблицы, затем коснитесь в ее левом верхнем углу.
    2. Коснитесь «Скопировать».
    3. Отмените выбор таблицы однократным касанием, коснитесь края экрана, рядом с которым требуется поместить копию, затем элемента «Вставить». В копии сохраняются те же настройки размещения таблицы, что и в оригинале: либо она свободно перемещается, либо зафиксирована в тексте («Двигать с текстом»).

    Таблицы перетекают на следующую страницу только в текстовых документах. Если часть таблицы не поместилась на странице текстового документа, выберите таблицу, затем на вкладке «Расстановка» в боковой панели «Формат» выберите «Двигать с текстом».

    Удалить строки в таблице с пустой ячейкой

    Имеется большая таблица, в некоторых строках которой в 6 столбце есть пустая ячейка. Нужно найти такие ячейки и удалить строки, в которых они есть. Поможете макросом?

    2 Ответ от aap77 04.07.2012 11:40:09

    Re: Удалить строки в таблице с пустой ячейкой
    Public Sub DeleteCells() Dim Doc As Document Dim Table As Table Set Doc = ActiveDocument For Each Table In Doc.Tables Table.Range.Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[^0013]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Next Table End Sub

    3 Ответ от Lohmatiy 04.07.2012 12:35:40

    Re: Удалить строки в таблице с пустой ячейкой

    неа, не работает. Удаляет пробелы кое-где, и все

    4 Ответ от aap77 04.07.2012 12:51:28

    Re: Удалить строки в таблице с пустой ячейкой

    Все работает, в этом макросе вообще нет ссылок на пробелы, вышлите таблицу

    5 Ответ от aap77 04.07.2012 12:59:54

    Re: Удалить строки в таблице с пустой ячейкой

    Опять же вопрос, если в строке встречаются пустые и заполненные ячейки то удалять всю строку? или же только когда все пустые ячейки в строке. В зависимости от этого уже просто придется дописывать созданный макрос, потому, что без действий уже созданного макроса в остальной могут возникать ошибки из-за не правильного форматирования таблицы автором

    6 Ответ от Lohmatiy 04.07.2012 13:27:25

    Re: Удалить строки в таблице с пустой ячейкой

    В строке могут быть как пустые, так и не пустые ячейки. Нас интересует только 6 ячейка каждой строки. Если в ней пусто, удалить всю строку.

    Post’s attachments

    1111.doc 61 Кб, 8 скачиваний с 2012-07-04

    You don’t have the permssions to download the attachments of this post.

    7 Ответ от aap77 04.07.2012 16:41:07

    Re: Удалить строки в таблице с пустой ячейкой

    Вот теперь понятно сделаем

    8 Ответ от aap77 04.07.2012 18:37:35

    Re: Удалить строки в таблице с пустой ячейкой

    Вот попробуйте макрос по Вашим условиям

    Public Sub DeleteCells() Dim Doc As Document Dim Table As Table Dim Rw As Row Dim Cell As Cell Set Doc = ActiveDocument For Each Table In Doc.Tables Table.Range.Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[^0013]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll For Each Rw In Table.Rows i = 0 For Each Cell In Rw.Cells i = i + 1 If Cell.Range.Characters.Count = 1 And i = 6 Then Rw.Delete End If Next Cell Next Rw Next Table End Sub

    9 Ответ от Lohmatiy 04.07.2012 21:48:19

    Re: Удалить строки в таблице с пустой ячейкой

    Вот спасибо! Весь инет перерыл в поисках того. как делать макросы в ворде. Один эксель. А вы выручили.

    10 Ответ от aap77 04.07.2012 22:31:07

    Re: Удалить строки в таблице с пустой ячейкой

    А на работу взять слабо? Я Вам весь производственный процесс обеспечу?

    Сообщений [ 10 ]

    Страницы 1

    Чтобы отправить ответ, вы должны войти или зарегистрироваться

    Похожие темы

    • Задать значение «Пустой строки»
    • Удалить строки, где имеются повторяющиеся символы
    • Высота строки в таблице
    • Как отключить в таблице функцию добавления строки
    • Как отвязать строки столбцов в таблице друг от друга?
    • Не отображается нижняя граница каждой строки в таблице
    • определение номера строки в таблице и подстановка в адрес ячейки
    • Word как удалить текст в файле, закрыть и удалить макросом файл?

    Удалить строки в таблице с пустой ячейкой

    В современном мире необходимо постоянно совершенствовать свои знания, чтобы идти вперед. Это касается буквально всего, даже такой, казалось бы, простой и понятной операции, как работа с текстом. На портале о Microsoft Office Word вы узнаете про: word 2007 вставить как.

    Microsoft Word предоставляет практически неограниченные возможности для самосовершенствования, нужно только ими правильно воспользоваться. На портале о Microsoft Office Word вы узнаете про: как вставить таблицу из ворда в эксель. На форуме Ворд Эксперт как раз и обсуждаются пути оптимизации работы, посредством написания различных шаблонов и макросов для редактирования или форматирования, построения таблиц, списков стилей. Наш сайт о Microsoft Office Word даст ответ про: для чего нужны непечатаемые знаки» в текстовом процессоре ms word.

    Здесь вам подскажут оптимальные настройки программы в зависимости от стоящей задачи и помогут разобраться с тонкостями и отличиями различных версий. На портале о Microsoft Office Word вы узнаете про: ворд 2007 не печатает формулы. Для ленивых или очень занятых пользователей существуют готовые решения и возможность оставить заявку. Наш сайт о Microsoft Office Word даст ответ про: 1,25 см это сколько в ворде 2010.

    страницы

    • полезности word
    • книги и программы
    • о проекте
    • стать автором
    • реклама на сайте
    • правовая информация

    авторство

    © 2006 — 2016, Word Expert
    Авторские права на все материалы, опубликованные на сайте WordExpert.ru (включая текст, иллюстрации, фотографии, подборку, расположение и т.п.), принадлежат администрации Word Expert, если не указано иное.

    Как удалить пустое место в таблице в ворде

    Приветствую всех!
    Что-то никак не пойму, как сделать в таблице WORD такую последовательность:
    скопировать нужную строку, добавить сроку в конце таблицы с данными копирования.
    Делаю так, но что-то не то получется:

    oWord=  oword.Documents. oWordTbl=.tables.Item(1) .Cell(1,1).Range.Text='1' .Cell(1,2).Range.Text='2' .Cell(1,3).Range.Text='3' .rows. oWord. .rows.

    26.07.13 11:27:42

    Вот, посмотрите мучения с таблицами Word (и таблицами внутри таблиц — подтаблицами). Пришлось делать все через .Select строки/ячейки, и к Selection применять операции добавления. Не все оказалось возможным делать через Range. Программа, как всегда, в «фирменном» стиле

           azbukavb.narod.ru (умерла) #UNDEFINE dotWithTables m.j = m.parRowMASS  m.z = parMASS[m.j,1]  m.t =  m.u = m.oWord.ActiveDocument.Tables.Count m.u   m.oWord.ActiveDocument.Tables(m.t).  m.o = m.oWord.ActiveDocument.Tables(m.t)  m.s = parMASS[m.j,2]  m.c = 1   m.h = m.s   m.c = 1  m.g = ""  m.v =   m.v = " "+ m.a =  m.b =  m.v =  m.g = ICASE( ! m.a) + m.b m.v = m.m = ""   m.s = m.v m.m = "s"   m.c = , то в c останется номер ячейки в строке! m.y = m.v m.m = "sy"   m.u = m.o.Cell(m.s, m.y).Tables.Count  m.u "["+ " нет таблицы"+ 250) m.o = .NULL. 0  BETWEEN(m.y,1,m.o.Columns.Count) . BETWEEN(m.v,1,m.o.Cell(m.s, m.y).Tables.Count)) m.o = .NULL. m.o = m.o.Cell(m.s, m.y).Tables(m.v)  m.m = "o"   m.m = "y"   ! !ISNULL(m.o) . (!"s"$m.m .OR. BETWEEN(m.s,1,m.o.Rows.Count)) . (!"y"$m.m .OR. BETWEEN(m.y,1,m.o.Columns.Count)) . (!"v"$m.m .OR. BETWEEN(m.v,1,m.o.Cell(m.s, m.y).Tables.Count)) m.m = ICASE(m.m="o", m.o,; m.m="syv", m.o.Cell(m.s, m.y).Tables(m.v),; m.m="sy", m.o.Cell(m.s, m.y),; m.m="s", m.o.Rows(m.s),; m.m="y", m.o.Columns(m.y),; .NULL.)  m.w = "c=16,C=15,"+;  "n=0,N=1,"+;  "b=2,B=9,"+;  "t=3,T=10,"+;  "g=4,G=11,"+;  "v=5,V=12,"+;  "r=6,R=13,"+;  "y=7,Y=14,"+;  "W=8"   m.x =   m.i = 0 m.x = GETWORDNUM(  m.i =  .Split(m.y) m.v =  m.v = vValueToCorNULL  m.t = m.t+1 m.v = dotFindReplace(m.v)   m.oWord.  m.oWord.      m.x = .NULL. .Rows(m.y).  m.u = .Rows.Count m.v = .Columns.Count  .Cell(m.y,1).   .Columns.Count .Columns(m.c).     m.oWord.   m.u = .Columns.Count   m.v = parMASS[m.j,m.k+3-1]  m.v = vValueToCorNULL   LOOP    m.oWord.   m.v = dotFindReplace(m.v)    m.oWord.    #UNDEFINE sОтделитьСтрокуВновуюТаблицу #UNDEFINE sУдалитьСтроку #UNDEFINE sДобавитьНовуюСтроку #UNDEFINE sУдалитьСтолбец #UNDEFINE vValueToCorNULL         #UNDEFINE dotCellSel m.p = PCOUNT() m.y = m.x = m.t = m.e = .NULL.  m.z = .NULL.  m.r = .T.  m.a = .Rows.Count m.b = .Columns.Count BETWEEN(m.x,1,m.b) .Cell(m.y,m.x). .Rows(m.y). .Columns(m.x). m.z = "вне размера таблицы" m.z = m.e. " нет ячейки ("+ m.z,; 250) m.r = .F.
      вернуть CHR(11)), непустой - текст для формы Ctrl-F, с спецсимволами ^ #UNDEFINE dotFindReplace m.m = m.r = m.parC   m.r =  m.r =  m.r =   m.s = ВКПС + ", ^%,"+;  ТАБ + ", ^t,"+;  ВК + ", ^p,"+;  ПС + ", ^l,"+; =2 вертикальные ячейки. ПФ + ", ^m,"+;  ВТ + ", ^b,"+;  nbsp + ", ^s,"+;  "" m.k = GETWORDCOUNT(m.s,",")  
    

    ИСправил: пришлось разбить на 2 блока "code", чтобы текст программы стал цветным.

    Исправлено 1 раз(а). Последнее : of63, 26.07.13 11:44

    Excel: Удаление пустых ячеек из диапазона

    Часто при работе с большими таблицами данных необходимо удалить пустые ячейки, оставив только ячейки с информацией.

    Имеем диапазон ячеек с данными, в котором есть пустые ячейки.

    пустые ячейки

    Задача — удалить пустые ячейки.

    1.Выделяем исходный диапазон

    Выделяем исходный диапазон

    2. Для Excel 2003

    Выбираем в меню команду Правка – Перейти - далее кнопку Выделить

    Для Excel 2007 и выше

    Выбираем на вкладке Главная команду Найти и выделить и далее Выделение группы ячеек

    3. В открывшемся окне Выделение группы ячеек выбираем Пустые ячейки и нажимаем ОК.

    Нажать Ок

    В результате будут выделены все пустые ячейки в диапазоне.

    пустые ячейки в диапазоне

    4. Удаляем выделенные ячейки (Правка - Удалить ячейки) со сдвигом вверх

    Удаляем выделенные ячейки

    Удаляем выделенные ячейки

    В итоге, в диапазоне остались только ячейки, содержащие информацию.

    Добавить комментарий

    Ваш адрес email не будет опубликован. Обязательные поля помечены *