Как удалить содержимое ячеек таблицы в MS Word, но не сами ячейки.

У меня установлен MS Word 2007. Возможно ли удалить содержимое таблицы, не удаляя сами ячейки? Я пытался выделить несколько ячеек и нажать кнопку Backspace, но при этом ячейки удаляются вместе с их содержимым.

Использование клавиши Delete вместо Backspace должно сработать. По крайней мере, на ПК.

Если вы находитесь на Mac, и поэтому у вас нет настоящей клавиши Delete (клавиша Delete на клавиатуре Mac функционально эквивалентна клавише Backspace на ПК), вы можете использовать fn + delete, чтобы добиться желаемого результата.

Клавиша Backspace может использоваться для удаления выделенных ячеек таблицы, в то время как клавиша Delete, которая обычно находится в строке выше, очистит содержимое выделенных ячеек.

Выделите ячейки, затем Fn+Backspace. Только Backspace удаляет всю таблицу. Fn+Backspace очищает содержимое.

1. Выберите ячейку
2. Удерживая Shift, нажмите влево
3. Нажмите Delete или Backspace

Shift+Влево должен уменьшить выбор так, чтобы он выбрал только содержимое ячейки, а не всю ячейку целиком.

1. Выделите ячейки
2. Ctrl-H (поиск и замена)
3. Специальная кнопка
4. Заменить что: любой символ
5. Заменить на: удалить
6. Заменить все
7. Продолжить в документе?: Нет (закрыть диалоговое окно)
   Советы:
   Также работает с маркированными или нумерованными списками.
   (Просто не удаляйте последний символ абзаца при выделении.)

Вы всегда можете использовать Range(“A:A”).ClearContents, вот пример

    # Разделить длинный столбец на 7 равных
Sub SplitIntoCellsPerColumn()
Range("B2:H1894").ClearContents
  Dim X As Long, LastRow As Long, vArrIn As Variant, vArrOut As Variant
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  numofrows = LastRow / 7
  numofrows_rundup = Round_Up(numofrows)
  vArrIn = Range("A1:A" & LastRow)
  ReDim vArrOut(1 To numofrows_rundup, 1 To Int(LastRow / numofrows_rundup) + 1)
  For X = 0 To LastRow - 1
    vArrOut(1 + (X Mod numofrows_rundup), 1 + Int(X / numofrows_rundup)) = vArrIn(X + 1, 1)
  Next
  Range("B2").Resize(numofrows_rundup, UBound(vArrOut, 2)) = vArrOut

  Range("A:A").ClearContents

End Sub


Function Round_Up(ByVal d As Double) As Integer
    Dim result As Integer
    result = Math.Round(d)
    If result >= d Then
        Round_Up = result
    Else
        Round_Up = result + 1
    End If
End Function

После того как вы очистите содержимое ячеек таблицы, форматирование стиля может по-прежнему оставаться. В зависимости от стиля для ячейки таблицы это может привести к тому, что такие элементы, как нумерация (например, “1.”, “2.”, “A.”, “B.”, “I”, “II” и т. д.), все еще будут отображаться в ячейке таблицы, создавая впечатление, что ячейки таблицы не пустые.

Чтобы очистить стиль, выберите ячейки таблицы для очистки, откройте окно стилей кнопка расширения стилей на ленте из ленты и нажмите “Очистить все” очистить все на списке стилей.