web-dev-qa-db-fra.com

Comment supprimer le contenu des cellules du tableau MS Word mais pas les cellules

J'utilise MS Word 2007. Est-il possible de supprimer le contenu d'un tableau sans supprimer les cellules réelles? J'ai essayé de mettre en évidence un groupe de cellules et de frapper le Backspace bouton mais avec cette méthode les cellules sont supprimées avec leur contenu.

microsoft-wordmicrosoft-word-2007cells
8
John Sonderson

Le Backspace peut être utilisé pour supprimer les cellules de tableau en surbrillance, alors que Delete La touche qui se trouve généralement dans la ligne au-dessus effacera le contenu des cellules en surbrillance.

8
John Sonderson

Utiliser la touche "supprimer" au lieu de "retour arrière" devrait suffire. Sur un PC, quand même.

Si vous êtes sur un Mac et que vous n'avez donc pas de véritable touche "Supprimer" (la touche "Supprimer" du clavier du Mac est équivalente à une touche "Retour arrière" sur un PC), vous pouvez utiliser "fn + supprimer "pour obtenir l'effet désiré.

1
Packetdude

Mettez en surbrillance les cellules que vous souhaitez effacer et sélectionnez "Rechercher et remplacer", assurez-vous que l'option Utiliser le caractère générique est cochée. Entrer ? dans la section Rechercher et laissez la section Remplacer vide, sélectionnez Remplacer tout.

0
Darren Dooley
  1. Sélectionner une cellule
  2. Maintenez la touche Maj enfoncée et appuyez à gauche
  3. Appuyez sur Supprimer ou sur Retour arrière

Maj + Gauche doit réduire la sélection pour ne sélectionner que le contenu de la cellule et non la cellule entière elle-même.

0
Curtis Yallop

Vous pouvez toujours utiliser Range ("A: A"). ClearContents en donne un exemple

    # Split long col into 7 equal col
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
0
RmccurdyDOTcom