【VBA】空白に1つ上のセルの値を記入する
![VBA_空白に1つ上の値を入れる_1](https://haginote.com/wp-content/uploads/2022/06/973de95b1dba7148cf9badb84062c8ab-1024x380.jpg)
システムに集積されたデータを引っ張ってきた際に
冒頭のような空白交じりで
表示がなされる事はありませんか?
1つ上のデータと同じだから、空白になっている状態です。
![VBA_空白に1つ上の値を入れる_3](https://haginote.com/wp-content/uploads/2022/06/69d9e6bfea81bb279dadd00ddf0fb69b.jpg)
この空白部分を全て埋めたい
→つまり、空白に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](https://haginote.com/wp-content/uploads/2022/06/2f44bff0de43bb7775f453380f89a63e.jpg)
VBAを使用しないで解決する
VBAに頼らない場合は、ショートカットの
「ジャンプ機能」…[ Ctrl + G ]
を使用します。
詳しくは別の記事に書いておりますので、
宜しければ以下の記事をご参考になってください。
皆さんのお仕事が少しでも早く終わりますように。
以上です。