最新閲覧日:

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

A 回答 (2件)

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


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

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
    • good
    • 0
この回答へのお礼

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

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

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



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

sub temp()
 if activecell.value="" then
  activecell.value=activecell.offset(0,-1).value
 end if
end sub
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ