エクセルで同じ列内にあるデータの簡単コピーの方法

質問

質問です。
列Aに飛び飛びに会社名が入ってます
例
A1　丸株式会社
A2　空白
A3　空白
A4　空白
A5　三角有限会社
A6　空白
といった具合です
こんな感じで４０００行くらいあるのですが、
B列にはそれぞれ全部の列に付随するデータがあるのですが、
並べ替えを行う関係で空白部分に上の会社名を入れたい場合、すばやく行う方法はありますか？
A2からA4に丸株式会社、A6には三角株式会社
といった形で空白部分の上のデータをコピーしたいのです。
どなたか宜しくお願いいたします

回答No.2

shinchan_k · ベストアンサー

#1です。少し違ってました。すみません。
まず、A1をC1にコピペしておく。
で、C2を
=IF(A2="",C1,A2)
として、C3以降にコピペ。
で、C列にお望みのものができてるので、
それをA列に値のみ貼り付け。
ってのはいかがでしょうか。

お礼

ありがとうございました！！
４０００行近いデータ×１０シートあったので、
これでかなりの時間短縮できそうです！！！

回答No.7

noname#204879

１．セル A4000 を選択
２．Ctrlキーと Shiftキーを抑えたまま Homeキーをチョーン
３．[編集]→[ジャンプ]→[セル選択]を実行
４．“空白セル”に目玉を入れて Enterキーをパシーッ
５．F2キーを一発チョーン
６．=A1 を入力（するけど、まだ Enterキーを叩いては好けない！）
７．Ctrlキーを抑えたまま Enterキーをパシーッ
８．[コピー]→[値の貼り付け]を実行

お礼

チョーンとバシーッとやったら
出来ました！ありがとうございました！

回答No.6

Great-Wall

オートフィルタで空白のみ表示。
A2,A3,A4,A6…が表示されているハズなので、まずA2に『=A1』と入力。
A2をコピーし残りの空白行に貼り付け
（コピーしてShift+Ctrlを押しながら↓を押下して貼り付け）
でどうでしょう？

お礼

ありがとうございました
やってみましたが、うまく行きませんでした
No２さんとNo５さんの方法でやってみます
どうもでした！

回答No.5

134

失礼しました。マクロプログラムは、誤りがありました。訂正させて頂きます。

Sub test()

Dim Mycount As Integer

Mycount = Range("A65525").End(xlUp).Row 'Rows→×　　Row→○

For i = 2 To Mycount - 1

If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = Cells(i - 1, 1).Value

End If '←記載忘れ

Next

End Sub

お礼

ありがとうございました！
マクロは初心者ですが、時間のある時に利用させていただきます。
皆様感謝！

回答No.4

134

最も簡単なのは、オートフィル（カーソルをセル右下にあてて、＋字とし、ドラッグ）でしょうね。

　複数行選んで、会社名を入力し、Ｃｔｒｌを押しながら、Ｅｎｔｅｒというもの、あるかもしれません。

　あるいは、マクロを使用する方法でしょうか。

Sub test()
Dim Mycount As Integer

Mycount = Range("A65525").End(xlUp).Rows

For i = 2 To Mycount - 1

If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = Cells(i - 1, 1).Value

Next

End Sub

みたいな感じでしょうか。

回答No.3

kabilunlun

この方法はどうでしょう。
http://arena.nikkeibp.co.jp/tec/excel/20040309/107630/

でも、4000行だとちょっとつらいかも。

お礼

ありがとうございました！
その方法で今までしのいで来ましたが、
途方にくれておりました(>.<)

回答No.1

shinchan_k

こんばんは。例えばC2を
=IF(A2="",A1,A2)
として、C2をC3以下にコピペ。
で、C列にお望みのものができてるので、
それをA列に値のみ貼り付け。
ってのはいかがでしょうか。