マクロで空白セルに貼り付ける

エクセルで表を作っていますが、マクロを使って、空白セルの左隣の値をコピーし、空白セルに貼り付けをしたいのですが、うまくいきませんでしたので、教えてください。

No.2 ベストアンサー 回答者： nishi6 回答日時：2001/11/05 23:22

処理例を書いてい見ました。

空白セルを左のセルに置き換えたい範囲(連続範囲、飛び離れた範囲)を選択して実行します。
シートのコードウインドウに貼り付けます。　ご参考に。

Sub Okikae()
　　Dim rg As Range　　　　　　　　　　　　　　'セル
　　For Each rg In Selection　　　　　　　　　 '選択範囲での処理
　　　　If rg.Column <> 1 Then　　　　　　　　 '1列目でなかったら
　　　　　　If rg.Value = "" Then　　　　　　　'空白だったら
　　　　　　　　rg.Value = rg.Offset(0, -1)　　'左のセルと同じにする
　　　　　　End If
　　　　End If
　　Next
End Sub

この回答へのお礼

nishi6さん　とても分かりやすい回答有難うございました。早速試してみます。

お礼日時：2001/11/06 13:00

No.1 回答者： urk 回答日時：2001/11/05 17:57

例えばこんな感じでいいのでしょうか？

空白セルにカーソルがあるとして

sub temp()
　if activecell.value="" then
　 activecell.value=activecell.offset(0,-1).value
　end if
end sub

この回答へのお礼

urkさん　有難うございました。

お礼日時：2001/11/06 13:01