SuperStream-NX の仕訳日記帳の余計な列を削除する Excel マクロ

by 
Option Explicit

Sub Cut()
' 仕訳帳の余計な列を削除する
    Range("A:M,P:W,Y:Y,AB:AB,AI:AW,AZ:AZ,BC:BI,BL:BV").Delete
    Range("B:B").NumberFormatLocal = "yy/mm/dd"
    Range("L:M").NumberFormatLocal = "#,###"
    Range("A1").Select
    ActiveSheet.ListObjects.Add
    ActiveWorkbook.SaveAs FileFormat:=xlWorkbookDefault
End Sub

SuperStream-NX 統合会計の仕訳帳の CSV には余計な列が含まれます。そこで、CSV を開いてすぐこのマクロを実行して削除しましょう。実行用のショートカットキーも要設定です。