人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

1163170029
●拡大する

●質問者: shinken
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:333 A10 A8 VBA エクセル
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●333ポイント

先ほどは失礼しました。

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

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

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

◎質問者からの返答

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ