一番上の入り口へ > excel > VBA コーディングライブラリ集 > 空のセルに文字挿入するマクロサンプル

空のセルに文字挿入するマクロサンプル

特定範囲の 空(無)の列 に 文字列(str) を挿入します。 (いまいち 空の場合置換の仕方が解らなかったので・・・)
Sub insertStrIfBlank()
    
    Dim r As Integer, c As Integer
    Dim str As String
    
    r = 1
    c = 1
    str = "-"
    
    For r = 4 To 69 ' した
        For c = 3 To 15 '→
            If Cells(r, c).value = "" Or Cells(r, c).value = Null Then
                Cells(r, c) = str
            End If
        Next
    Next

End Sub

類似リンク

空白行を削除するマクロ(テスト付き)

選択範囲シート名にハイパーリンクを追加するマクロ

番号を順番に挿入するマクロ

VBA マクロライブラリ集