Excelマクロ入門。不要な行を（AまたはB）の条件で削除するマクロ。

2024年4月17日

URLをコピーしました！

データ処理をするときに「いらないなー」という余計なデータもあります。ただ、データ数が多ければ、処理にかかる手間もそれなりです。

その処理をマクロでやることもできます。

いらないデータは最初になくす

今回の事例はこのような仕訳データです。

会計ソフトからCSVファイルでダウンロードできるのですが、年（年度）が違うとファイルが別になりますし、ときにはイケてない仕様も…。

合計列があったり、日付や数字が文字列になっている場合もあります。集計することを考えたら文字列にするというのは想定外ですが、仕方ありません。

ただ、最低限、データがあればなんとかできます。

日付を文字列から数字データに変換したり、いらない行を削除するなど。

それをどうやってやるか。

オートフィルターで検索して行削除するという方法もありますが、今回のお話はこれをマクロでやる方法です。

あ、ファイルをまとめる方法はこちらに。

Excelマクロ超入門　会計データを1つのシートにまとめるマクロ | GO for IT 〜税理士植村豪 OFFICIAL BLOG

複数の会計データ（CSVファイル）を1つのシートにまとめる方法（バッチファイル編） | GO for IT 〜税理士植村豪 OFFICIAL BLOG

複数のCSV（会計データ）やExcelファイルを1つにまとめる（結合する）方法　Excelの「取得と変換」 | GO for IT 〜税理士植村豪 OFFICIAL BLOG

データのくせを見抜く

いらないデータを消すために、データのくせを見つけましょう。

月ごとに集計があるとか、

た、タイトル行がある場合も…。

空欄、タイトルや集計行があれば、データとしてのまとまりを欠くことになります。もしデータを1行でもあけると、そこまでで1つのデータとして扱われますから。

今回の場合は、

・A列が空欄になっている
・A列に「仕訳日記帳」の文字列がある
・A列に「日付」の文字列がある

どれかに該当する行があれば、削除します。
そうすることで、まとまった1つのデータとして利用することができます。

いらない行を複数条件で削除するマクロ

実際にマクロを書いてみました。

今回書いてみたマクロは、こちらです。


Sub rows_index()

  Dim LastRow        ' 最終行Index
  Dim i              ' 変数
   
  ' 最終行の確認
   
   LastRow = ActiveSheet.Range("A" ＆ Rows.Count).End(xlUp).Row
    
  ' 最下行から4行目まで逆順でループ
    
    For i = LastRow To 4 Step -1
          
  ' A列のi行目が数値でない場合はその行を削除

          If (Range("A" ＆ i) = "仕訳日記帳" Or Range("A" ＆ i) = "日付") _
           Or Range("A" ＆ i) = "" Then
           
           Range("A" ＆ i).EntireRow.Delete
          
          End If
    Next

End Sub