【VBA】初心者におすすめ！コピペで使える簡単マクロ

◇前置き

今日は、便利なExcel VBAマクロをサンプルコード付きで3つ紹介します。

それぞれのマクロは、Excelのワークシート上で実行することを想定しています。

◇データの整形マクロ

このマクロは、選択した範囲のデータを整形します。

空白行や不要なスペースを削除して、データをきれいに整えます。

Sub 整形マクロ()
    Dim rng As Range
    Set rng = Selection ' 選択範囲を取得
    
    ' 空白行を削除
    rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    
    ' スペースをトリム
    rng.Replace " ", "", xlPart
End Sub

◇重複データの削除マクロ

このマクロは、選択した範囲から重複した行を削除します。

重複データを一掃して、データの品質を向上させます。

Sub 重複削除マクロ()
    Dim rng As Range
    Set rng = Selection ' 選択範囲を取得
    
    ' 重複行を削除
    rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

◇データのグラフ化マクロ

このマクロは、選択したデータを折れ線グラフでグラフ化します。

データの傾向やパターンを視覚的に把握するのに便利です。

Sub グラフ化マクロ()
    Dim chartSheet As Chart
    Dim dataRange As Range
    
    Set dataRange = Selection ' 選択範囲を取得
    
    ' 新しいチャートシートを作成
    Set chartSheet = Charts.Add
    
    ' チャートにデータを追加
    With chartSheet
        .ChartType = xlLine ' 折れ線グラフを設定
        .SetSourceData Source:=dataRange
        .HasTitle = True
        .ChartTitle.Text = "データグラフ"
    End With
End Sub