【Excel VBA】左シフト削除テスト

はじめに

左シフトでセルを削除する処理を実装する際に、テストで実装したソースコードをご紹介します

実装したソースコード

実装したソースコードは以下になります。

'左シフト削除テスト関数
Sub delete_left()
    '範囲オブジェクト
    Dim rng As Range
    'シート名変数
    Dim sheet_name As String
    
    sheet_name = "test1"
    Set rng = ThisWorkbook.Worksheets(sheet_name).Range("B1:B16")
    '左シフト削除
    rng.Delete Shift:=xlToLeft
End Sub

最後に

あまり使用する機会がないかもしれませんが、ブログで紹介させていただきます。