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

VBA_空白に1つ上の値を入れる_1
システムから抽出したデータで空白が混じっている事はありませんか?空白には1つ上のセル値が入ります。右図は空白に分かりやすく(緑)色を塗りました。

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

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

VBA_空白に1つ上の値を入れる_3
ピボットテーブルを作成すると同じ表示になりますね

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

この場合、以下の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_空白に1つ上の値を入れる_2
無事に空白セルに、1つ上のセルの値を埋め込む事ができました。

 

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

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

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

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

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

広告