Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46863 / 76732 ←次へ | 前へ→

【34836】Re:データ並び替え
回答  だるま WEB  - 06/2/14(火) 13:40 -

引用なし
パスワード
   こんな感じでいかがでしょうか。^d^

Sub test()
  Dim Dic As Object
  Dim Ky As String
  Dim InPath As String
  Dim OutPath As String
  Dim N As Integer
  Dim D As String
  Dim i As Integer
  
  Set Dic = CreateObject("Scripting.Dictionary")
  InPath = ThisWorkbook.Path & "\In.csv"
  OutPath = ThisWorkbook.Path & "\Out.csv"
  
  N = FreeFile
  Open InPath For Input As #N
  Do Until EOF(N)
    Line Input #N, D
    i = InStr(D, ",")
    Ky = Left$(D, i - 1)
    If Dic.Exists(Ky) Then
      Dic.Item(Ky) = Dic.Item(Ky) & Mid$(D, i)
    Else
      Dic.Item(Ky) = D
    End If
  Loop
  Close #N
  
  D = join(Dic.Items, vbCrLf)
  
  N = FreeFile
  Open OutPath For Output As #N
  Print #N, D
  Close #N
  
  Set Dic = Nothing
End Sub

0 hits

【34831】データ並び替え たま 06/2/14(火) 12:13 質問
【34832】Re:データ並び替え やっちん 06/2/14(火) 12:42 発言
【34835】Re:データ並び替え inoue 06/2/14(火) 13:25 発言
【34836】Re:データ並び替え だるま 06/2/14(火) 13:40 回答
【34839】Re:データ並び替え たま 06/2/14(火) 14:40 発言
【34840】Re:データ並び替え inoue 06/2/14(火) 15:23 発言
【34841】Re:データ並び替え たま 06/2/14(火) 16:20 発言
【34842】Re:データ並び替え だるま 06/2/14(火) 16:23 回答
【34848】Re:データ並び替え たま 06/2/14(火) 19:04 質問
【34856】Re:データ並び替え やっちん 06/2/14(火) 20:22 発言
【34978】Re:データ並び替え たま 06/2/17(金) 14:25 お礼

46863 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free