hamachan.info カテゴリーへ
トップ | ログイン
上のセルの値を貼り付ける
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 はま
サイト内検索
記事ランキング
最新の記事
テキストボックス内で再変換す..
at 2017-11-10 22:04
Accessのナビゲーション..
at 2017-11-06 15:46
表の位置をスライドの中央に表..
at 2017-10-11 16:07
クイックアクセスツールバーに..
at 2017-10-11 15:02
Windows10のIMEで..
at 2017-09-10 10:08
Systemによってファイル..
at 2017-08-24 12:32
Windows10のIMEに..
at 2017-08-24 11:49
新規ブックのワークシート数
at 2017-08-11 20:27
表の縞模様ダイアログボックス..
at 2017-08-10 23:53
Windows10でWi-F..
at 2017-07-17 18:02
リンク
カテゴリ
全体
Windows
IME
Office共通
Word
Excel
PowerPoint
Access
Outlook
Internet Explorer
Outlook Express
ホームページビルダー
ATOK
一太郎
筆まめ
筆王
筆ぐるめ
PhotoshopElements
ネットワーク
PCインストラクター
ああ~お客様
(@_@)
iPhone
SharePoint
未分類
以前の記事
2017年 11月
2017年 10月
2017年 09月
more...
検索
外部リンク