【VBA】空白に１つ上のセルの値を記入する

2022年6月20日

システムに集積されたデータを引っ張ってきた際に
冒頭のような空白交じりで
表示がなされる事はありませんか？

１つ上のデータと同じだから、空白になっている状態です。
　

この空白部分を全て埋めたい
　→つまり、空白に１つ上のセルの値を入力する

この場合、以下のVBAコードを使用すると一瞬で片付きます。

★サンプルコード

Dim myRng As Range

For Each myRng In Range("A1").CurrentRegion
  If myRng.Value = "" Then
    myRng.Value = myRng.Offset(-1).Value
  End If
Next

サンプルコードを実行した結果は
以下になります。

VBAを使用しないで解決する

VBAに頼らない場合は、ショートカットの

「ジャンプ機能」…[ Ctrl + G ]

を使用します。
詳しくは別の記事に書いておりますので、
宜しければ以下の記事をご参考になってください。

【Excel時短術】１つ上のデータと同じ内容を入れ込む方法

Excelで売上データやその他、俗にいうCVSデータ等集積されたをサーバーから引出し、「さ、編集しよう」というその時、下記のデータのように、空白があったりすると絶望しませんか？また、そんな経験ありませんでしょうか？ 元デ […]

皆さんのお仕事が少しでも早く終わりますように。
以上です。