.xml (UTF-8) ファイルを.txt (UTF-8) ファイルに拡張子を変換する。その際に注意喚起のメッセージが出るが無視
下記コードが書かれた.xlsmファイルを開き、txtファイルをドラッグドロップしVBAを実行する。
Sub DeleteRowsWithSpecificValue() '変数の宣言 Dim lastRow As Long '最終行変数 Dim i As Long 'カウンタ変数 ' 最終行を取得
階層をしてダイアログでファイルを開く
'最初に開くフォルダを指定 With CreateObject("WScript.Shell") .CurrentDirectory = ThisWorkbook.Path End With 'ファイルパスを取得 a = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx?") 'キャンセルの場合、終了 If
Sheet1"集計"
Sheet2"JA"
コード
Sub 商品番号、支社毎カウント()'Sheet1 集計'Sheet2 データ Dim ws1 As Worksheet Dim ws2 As Worksheet Dim i As Long Dim j As Long Dim k As Long Dim Scnt(3) As Long ' シートを指定 Set ws1 = ThisWorkbook.Sheets(