MS Word 2007を実行しています。実際のセルを削除せずにテーブルの内容を削除することはできますか?たくさんのセルをハイライト表示して、 Backspace ボタンですが、この方法では、セルはその内容とともに削除されます。
の Backspace ハイライトされたテーブルセルを削除するために使用できますが、 Delete 通常、上の行にあるキーは、強調表示されたセルの内容をクリアします。
「バックスペース」の代わりに「削除」キーを使用してそれを行う必要があります。 PCではとにかく。
Macを使用していて、実際の「削除」キーがない場合(Macのキーボードの「削除」キーは、機能的にはPCの「バックスペース」キーと同等です)、「fn +削除」して、目的の効果を達成します。
セルをマークしてから、Fn + Backspaceを押します。バックスペースのみがテーブル全体を削除します。 Fn + Backspaceはコンテンツをクリアします。
クリアするセルを強調表示して、[検索と置換]を選択し、[ワイルドカードを使用]オプションがオンになっていることを確認します。入る ?検索セクションで置換セクションを空白のままにして、すべて置換を選択します。
Shift + Leftは、セル全体ではなくセルの内容のみを選択するように、選択を縮小します。
常にRange( "A:A")を使用できます。ClearContentsの例
# 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