タイトル : Re: CSVから重複しないデータの抽出 投稿日 : 2008/02/01(Fri) 16:55 投稿者 : YK
こんにちは。 サンプルです。 後は御自分で加工して下さい。 Sub TEST() Dim SD As Object Dim strFnm As String Dim intFno As Integer Dim strBuf As String Dim varD As Variant Dim i As Long strFnm = "D:\TEST.csv" intFno = FreeFile Set SD = CreateObject("Scripting.Dictionary") Open strFnm For Input As #intFno Do While Not EOF(intFno) Line Input #intFno, strBuf varD = Split(strBuf, ",") SD(varD(0) & "," & varD(1)) = Empty Loop Close #intFno varD = SD.keys For i = 0 To UBound(varD) Debug.Print varD(i) Next End Sub |