上のセルの値を貼り付ける
2010年 04月 25日
↓のような表があります。
この表の空白セルに上のセルの
値を貼り付けたい場合の方法です。
a0030830_2113922.gif

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

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

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

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

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

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

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

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

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


図は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
************************************
このマクロをアドインとして登録する方法も解説しています。

アドインの作成と登録

by hama_y | 2010-04-25 21:43 | Excel |▲TOPへ

<< メールの本文として送信されたブック 新しいウィンドウの大きさを固定する >>



パソコンのお役立ち機能を一緒に学びませんか?[初心者のためのOffice講座 hamachan.info]のサポートブログです。
by はま
サイト内検索
リンク
PROFILE
問い合わせ
プライバシーポリシー
初心者のためのOffice講座
はじめてのMac

[アフィリエイトやるなら]
カンファレンスバナー
[MVP]

Microsoft MVP for Word
(2016.1-2017.12)
Microsoft MVP for Office System
(2009.1-2015.12)

Google+
外部リンク
記事ランキング
最新の記事
シートのグループ解除
at 2017-04-18 14:48
デスクトップのアイコンがなく..
at 2017-04-06 19:03
フォームのテキストボックスを..
at 2017-03-20 17:29
Windows10でタスクバ..
at 2017-03-11 19:06
メールリンクをクリックしてG..
at 2017-03-07 19:30
カテゴリ
全体
Windows
IME
Office共通
Word
Excel
PowerPoint
Access
Outlook
Internet Explorer
Outlook Express
ホームページビルダー
ATOK
一太郎
筆まめ
筆王
筆ぐるめ
PhotoshopElements
ネットワーク
PCインストラクター
ああ~お客様
(@_@)
iPhone
SharePoint
未分類
以前の記事
2017年 04月
2017年 03月
2017年 02月
more...
検索