空欄を埋めるVBA

Excelにて、以下のようなデータがあります。

　 A B C
1 X 1 2
2　 2 3
3 　 3 4
4 Y 4 5
5 　5 6
6 　6 7

A2,A3にX(=A1)を、A5,A6にY(=A4)を入力するようなVBAはどのように作ればよいのでしょうか？

No.4 回答者： Wendy02 回答日時： 2006/02/14 15:24

こんにちは。

たぶん、この手の質問は大量の書き込みが必要になることが多いので、それにあわせて作ってみました。少ない行では違いは分らないと思います。

Sub BlankSelectCellsEntering()
Dim r As Range
Dim c As Range
On Error Resume Next
Application.ScreenUpdating = False
Set r = Range("A1").CurrentRegion.Columns(1).SpecialCells(xlCellTypeBlanks)
For Each c In r.Areas
　c.Value = "'=" & c.End(xlUp).Address(0, 0)
　c.Value = c.Value
Next c
Application.ScreenUpdating = True
End Sub

No.3 回答者： imogasi 回答日時： 2006/02/14 08:10

VBEの標準モジュールに

Sub test01()
d = Range("B65536").End(xlUp).Row
For i = 1 To d
If Cells(i, "A") = "" Then
Cells(i, "A") = x
Else
x = Cells(i, "A")
End If
Next i
End Sub
Ａ列最初行は空白でないものとする。
Ａ列２，３行などはスペースでなく空白とする。
上記で困ること（ケース）があれば補足してください。

No.2 回答者： papayuka 回答日時： 2006/02/14 08:03

こんな感じ？

　# B列を最終行の判定に使っています。

Sub Test()
Dim r As Range, s1
　For Each r In Range(Range("B1"), Range("B65536").End(xlUp))
　　　If r.Offset(0, -1).Value <> "" Then
　　　　 s1 = "=" & r.Offset(0, -1).Address(0, 0)
　　　Else
　　　　 r.Offset(0, -1).Value = s1
　　　End If
　Next r
End Sub

No.1 回答者： cockerel 回答日時： 2006/02/14 05:20

直上のセルをコピーする操作は、次のようになります。

どれかのセルを選択して編集＞ジャンプで空白セルを選択します。
イコールと上矢印を入力し、ctrl+enterを行います。
この操作を記録すればマクロにできます（2・3行です）。