1163170029 エクセルのマクロ、VBAの質問です。ベスト回答には333ポイント。画像を見て下さい。セル内容が空白ならば、一つ上のセルの値を代入したいのです。たとえば、画像ならば、セルA5には、一つ上であるセルA4のcという文字を代入するということです。同じく、セルA8にはe,セルA10にはfを入れたいと言うことです。

よろしくお願いいたします。

回答の条件
  • 1人2回まで
  • 登録:2006/11/10 23:47:12
  • 終了:2006/11/11 00:27:04

回答(1件)

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912006/11/11 00:00:30

ポイント333pt

先ほどは失礼しました。

今度は外してないと思うのですが(^^;;)

Sub fillCells()
    Dim lastRow As Long
    ' ---最終行の設定
    lastRow = Range("A65535").End(xlUp).Row
    
    For i = 2 To lastRow
        If IsEmpty(Cells(i, "A").Value) Then
        ' ---空の場合上の値をコピー
            Cells(i, "A").Value = Cells(i - 1, "A").Value
        End If
    Next
End Sub

外していたら、ポイントは不要です。

id:shinken

(^_^)v今回も回答ありがとうございました。

これで、バッチリでした。今度こそベスト回答になります。333ポイントもらって下さい。

2006/11/11 00:26:09
  • id:Mook
    お役に立てたようで、何よりです。

    たくさんのポイントありがとうございました。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません