質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

4回答

2305閲覧

CSV出力の際に重複していたら上の行は書出し下の行はスルーしたい

Naoko_Coco

総合スコア54

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2019/10/08 04:56

Excelで読み込んだデータをCSV出力しています。
その際に重複の場合に、最初の行を書出しほかの重複行は飛ばして書き出したいです。
その重複行はExcel上で行の削除したくありません。(次の処理で別CSVも作成しているため)
削除しか方法ないということであれば、書き出したCSVの重複行の削除の仕方はございますでしょうか?
ご教示お願いします。

↓14行目と15行目が重複しているので14行目だけを書込み、16行目以降もをかきだしていきたいです。

VBA

1Private Sub CSV_Click() 2 Dim i As Long 3 Dim c As Long 4 Dim j As Long 5 Dim r As Long 6 Dim re As Long 7 Dim cnt As Long 8 Dim csvFile1 As String 9 Dim csvFile2 As String 10 Dim FoundCell As Range 11 12 r = Me.Range("C13").CurrentRegion(Me.Range("C13").CurrentRegion.Count).Row 13 c = Me.Range("C13").CurrentRegion(Me.Range("C13").CurrentRegion.Count).Column 14 15 If Me.Cells(8, 3).Value Like "*+*" Then 16 csvFile1 = ActiveWorkbook.Path & "\" & "職員マスタ 1_" & Format(Now, "yyyymmdd_hhmmss") & ".csv" 17 Open csvFile1 For Output As #1 18 19 For i = 14 To r 20 cnt = cnt + 1 21 If cnt <= 1000 Then 22 For j = 3 To 12 23 If j <> 12 Then 24 Write #1, Me.Cells(i, j).Value; 25 Else 26 Write #1, Me.Cells(i, j).Value 27 End If 28 Next j 29 Else 30 Close #1 31 csvFile2 = ActiveWorkbook.Path & "\" & "職員マスタ 2_" & Format(Now, "yyyymmdd_hhmmss") & ".csv" 32 Open csvFile2 For Output As #2 33 Exit For 34 End If 35 Next i 36 37 If cnt > 1000 Then 38 For i = i To r 39 For j = 3 To 12 40 If j <> 12 Then 41 Write #2, Me.Cells(i, j).Value; 42 Else 43 Write #2, Me.Cells(i, j).Value 44 End If 45 Next j 46 Next i 47 End If 48 MsgBox Me.Cells(8, 3) & ".csv" & "を作成しました。" 49

下記のようにも書いてみたんですが、これだと重複行全部書き込まれません。。。

VBA

1 If Me.Cells(8, 3).Value Like "*+*" Then 2 csvFile1 = ActiveWorkbook.Path & "\" & "職員マスタ 1_" & Format(Now, "yyyymmdd_hhmmss") & ".csv" 3 Open csvFile1 For Output As #1 4 For Each rng In Range("C14:C" & r) 5 6 CellCount = WorksheetFunction.CountIf( _ 7 Range("C14", Cells(r, 3)), rng) 8 If CellCount = 0 Then 9 For i = 14 To r 10 cnt = cnt + 1 11 If cnt <= 1000 Then 12 For j = 3 To 12 13 If j <> 12 Then 14 Write #1, Me.Cells(i, j).Value; 15 Else 16 Write #1, Me.Cells(i, j).Value 17 End If 18 Next j 19 Else 20 Close #1 21 csvFile2 = ActiveWorkbook.Path & "\" & "職員マスタ 2_" & Format(Now, "yyyymmdd_hhmmss") & ".csv" 22 Open csvFile2 For Output As #2 23 Exit For 24 End If 25 Next i 26 End If 27 Next rng 28

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Youbun

2019/10/08 05:34

画像の表を読み込んでCSVファイルを出力する ・1行ずつ見た時に「職員コード」に重複がある場合は  上の行の方のみをcvsファイルに出力したい という事をやりたいという質問であってますか?
Naoko_Coco

2019/10/08 05:36

はい。その通りです。
tatsu99

2019/10/08 05:50

提示されたソース(上のほう)をみると、 1.12列(L列)まで、書いた後、改行をしていない。 2.CSV出力なら、各データををカンマ(,)で区切って出力すべきだが、カンマで区切って出力していない。 ように見えます。 本当に、このソースで、実行されたのでしょうか。 職員コードの重複以前に上記の修正が先決かと。
Naoko_Coco

2019/10/08 06:08

それはやってます。Writeで12列目?に行ったときには改行してます。
tatsu99

2019/10/08 06:14

Write #1, Me.Cells(i, j).Value; 最後の;を見落としていました。失礼しました。
Naoko_Coco

2019/10/08 06:21

いえいえ、いつもありがとうございます。
guest

回答4

0

ベストアンサー

Youbunさんのアドバイスに従ってDictionaryオブジェクトを使ってみました。
今回のケースでは連想配列のキーは職員コードですが、(重複の有無の判定だけなら)値は、1固定でも構いません。
出力するファイル名ですが、1秒以上かかると、まれに最後の秒のところで、ファイル名の秒台が合わなくなる可能性もあります。最初にFormat(Now, "yyyymmdd_hhmmss")タイムスタンプを取得しておき、その文字列を記憶し、それをファイルの番号が増えたとき使いまわすと良いでしょう。
今回は、この対応はしていません。

vba

1Private Sub CSV_Click() 2 Dim i As Long 3 Dim c As Long 4 Dim j As Long 5 Dim r As Long 6 Dim re As Long 7 Dim cnt As Long 8 Dim csvFile As String 9 Dim FoundCell As Range 10 Dim fileNo As Long 'CSVファイル通番(1,2,3・・) 11 Dim dicT As Object '連想配列 キー:職員コード 値:最初に出現した行番号 12 Dim key As String '職員コード 13 Set dicT = CreateObject("Scripting.Dictionary") ' 連想配列の定義 14 15 r = Me.Range("C13").CurrentRegion(Me.Range("C13").CurrentRegion.Count).row 16 c = Me.Range("C13").CurrentRegion(Me.Range("C13").CurrentRegion.Count).Column 17 cnt = 0 18 fileNo = 1 19 If Me.Cells(8, 3).Value Like "*+*" Then 20 csvFile = ActiveWorkbook.Path & "\" & "職員マスタ " & fileNo & "_" & Format(Now, "yyyymmdd_hhmmss") & ".csv" 21 Open csvFile For Output As #1 22 For i = 14 To r 23 key = Me.Cells(i, 3).Value 24 If dicT.exists(key) = False Then '職員コードが既出でないなら出力する 25 dicT(key) = i 26 cnt = cnt + 1 27 If cnt > 10000 Then 28 Close #1 29 fileNo = fileNo + 1 30 csvFile = ActiveWorkbook.Path & "\" & "職員マスタ " & fileNo & "_" & Format(Now, "yyyymmdd_hhmmss") & ".csv" 31 Open csvFile For Output As #1 32 cnt = 1 33 End If 34 For j = 3 To 12 35 If j <> 12 Then 36 Write #1, Me.Cells(i, j).Value; 37 Else 38 Write #1, Me.Cells(i, j).Value 39 End If 40 Next j 41 End If 42 Next i 43 Close #1 44 MsgBox Me.Cells(8, 3) & ".csv" & "を作成しました。" 45 End If 46End Sub 47

投稿2019/10/08 07:22

tatsu99

総合スコア5424

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Naoko_Coco

2019/10/08 07:37

思い通りにできました!! いつもありがとうございます。 色々と書き出してたらわけわからなくなっちゃったので、再度清書してみます。 ありがとうございました。
guest

0

エクセルのフィルタオプション機能を使用して重複のないデータにしてからCSV書き出しをしてはいかがでしょうか?(必要であればそれ用にシートを作成する)

※上記操作はVBAで実装可能だと思いますが、試してはいません

投稿2019/10/08 07:08

meg_

総合スコア10577

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Naoko_Coco

2019/10/08 07:22

それが一番楽かもしれません! Countifで重複があれば別シートにコピペでRemoveDuplicatesで重複削除してからCSVに書き出すのが、今自分でできる精いっぱいなのかもしれません。
guest

0

>その重複行はExcel上で行の削除したくありません。(次の処理で別CSVも作成しているため)
1)新たなブックにシート丸ごとコピー
2)そのまま重複の削除機能で重複の削除機能で重複削除
3)そのまま、名前を付けて保存(CSV形式)
4)新たなブックを保存せずに閉じる

とすればいいのでは?

投稿2019/10/08 07:32

mattuwan

総合スコア2136

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Naoko_Coco

2019/10/08 07:38

新しいシートにコピーしてってのは、やってみたらできました。 ありがとうございます。
mattuwan

2019/10/08 07:43

新しいブックですけどね^^; やってみたというのは手動でってことですか? で、マクロ化したら使えそうですかね?
Naoko_Coco

2019/10/08 08:00

マクロで重複があれば新しいシートにコピーしてRemoveDuplicatesにて重複削除してからCSVに書出し、作成したSheetは削除するってのをやりました。 ちゃんと動作してできましたよ。 ありがとうございます。
guest

0

1.行の長さ分の配列を定義する
2.CSVファイルに出力した後、職員コードを「1.」で作成した配列に格納していくようにする
3.CVSに出力する前に、下記URLを参考に出力しようとしていた職員コードが「1.」で作成した配列の中に存在するか判定
指定の要素が配列に存在するか確認する関数

4.「配列に存在する=すでに出力した職員コード」なので、CSVに出力する処理を行わないようにする

これで、重複判定は出来ると思います。

余談ですが、コードを見ていて思ったことを書きます。
・表を一度変数に格納してから操作すると早くてわかりやすい
セル範囲を配列に格納する方法
・CSVファイルに出力する時は、出力する文字列を1つの変数にまとめて一気に出力する
本当の表を見ていないのでよく分からないのですが、
Write関数で一セルずつ出力するのではなく、
職員マスタファイルとして出力する要素を、全て一つの変数に格納してから
出力したほうが見やすくて高速になると思います。

投稿2019/10/08 06:11

Youbun

総合スコア125

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Youbun

2019/10/08 06:19

今回は、新しいことを言ったらわけわからなくなると思って配列を使いましたが、 重複判定する時はDictionaryオブジェクトというものがとても便利なので 追記でご紹介しておきます。 https://www.sejuku.net/blog/29736 余裕があったら見てみてください!
Naoko_Coco

2019/10/08 07:25 編集

ありがとうございます。 書き換えたのですがインデックスが有効ではないと出てしまいます。 書き方が悪いんだと思うんですが自分でわかりません。。。 かこったりがわからないのでベタ打ちになりますが、見づらかったらすいません。 Dim varArray() As Variant Dim varResult As Variant Dim strTarget As String  Open csvFile1 For Output As #1 ’配列に格納 c = 0 For i = 14 To r cnt = cnt + 1 If cnt <= 1000 Then For j = 3 To 12          varArray(c) = Me.Cells(i, j)          c = c + 1 Next j strTarget = Me.Cells(i, 3)           varResult = Filter(varArray, strTarget) ' If UBound(varResult) = -1 Then For c = 0 To 9 If c <> 9 Then Write #1, varArray(c).Value; Else Write #1, varArray(c).Value End If Next End If Else
Youbun

2019/10/08 07:28

質問に貼ってるやつも含めてですが、 ・私の読解力不足 ・コードが表のフォーマットに依存しすぎている ・表のフォーマットがわからない ・Private Sub CSV_Click()の関数が最後まで貼られていない 上記理由のため、 何を意図してこのソースを組んでるのか私にはよく分かりませんでした。 上のコードも何がしたいのか全く分かりませんでした。 なのであなたの書いたコードの修正は出来ないです。 やり方しか教えれなくてすみません。
Naoko_Coco

2019/10/08 07:40

いえいえこちらこそ、色々と教えてくださりありがとうございます。 色々と分岐させたりしているので全コード載せるととても長くなってしまうため抜粋しました。書き方が悪くてすいませんでした。 今後ともよろしくお願いします。 今回はtatsu99さんが提案してくださった方法でうまくいきました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問