上のセルの値を貼り付ける

2010年 04月 25日

下のような表があります。
この表の空白セルに上のセルの値を貼り付けたい場合の方法です。

データ少ない場合はドラッグで範囲選択してもいいのですが、
データが膨大な場合はショートカットキーを使うほうが便利です。
連続している列の一番上のセルをアクティブにして　「CTRL」「SHIFT」「↓」で連続したセルの全選択ができます。

そのあと、「SHIFT」キーを押したままＢ列の最後のセルをクリックします。

「CTRL」と「G」を押して、ジャンプダイアログボックスを表示します。

「セル選択」から「空白セル」を選択して、「OK」ボタンをクリックします。

A列の空白セルだけが選択されます。

セルB2に「=B1」と入力します。
そして、そのあと「Ctrl」キーを押したまま「Enter」キーを押します。

そうすると、空白セルに数式がコピーされます。

数式がコピーされたB列を選択します。ここでも「Ctrl」「Shift」「↓」キーを使うと便利ですね。
コピーボタンをクリックします。

「貼り付け」ボタンから「値の貼り付け」をクリックします。


図はExcel2007ですが、Excel2003でも同じことができます。
ジャンプダイアログボックスは、Excel2003なら「編集」メニューの「ジャンプ」、
Excel2007なら「ホーム」タブの「編集」グループにある「検索と選択」から「条件を選択してジャンプ」をクリックしてもいいですね。Excel2007の場合、「条件を選択してジャンプ」から「選択オプション」ダイアログボックスを表示することができます。

動画で解説してみました。上のセルの値を貼り付けるには

VBAが得意なかたは、コードを書いたほうが早いかもしれないですね。

-----ここから-----

Sub 上のセルコピー()

Dim i As Integer

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, 2).Value = "" Then
Cells(i, 2).Value = cells(i-1,2).Value

End If
Next i

End Sub

-----ここまで-----

マクロをアドインとして登録する方法も解説しています。

Excel2003

Excel2013