Excel VBA質問箱 IV

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

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


52411 / 76732 ←次へ | 前へ→

【29160】Re:CSVのデータを加算していく方法について
回答  だるま WEB  - 05/9/26(月) 22:37 -

引用なし
パスワード
   こんにちは

私もひとつ作ってみましたのでよろしければどうぞ。^d^

Sub AddFromCSV()
  Dim Dic As Object
  Dim myRange As Range
  Dim myCell As Range
  Dim myPath As String
  Dim N As Integer
  Dim K As String
  Dim Item1 As Integer, Item2 As Integer
  
  Set Dic = CreateObject("Scripting.Dictionary")
  
  '処理対象セル範囲
  Set myRange = ActiveSheet.UsedRange
  
  For Each myCell In myRange.Columns(1).Cells
    Set Dic.Item(myCell.Value) = myCell
  Next
  
  '読み込むCSVファイル
  myPath = ThisWorkbook.Path & "\test.csv"
  N = FreeFile
  
  Open myPath For Input As #N
  Line Input #N, K  'タイトル読み飛ばし
  
  Do Until EOF(N)
    Input #N, K, Item1, Item2
    If Dic.Exists(K) Then
      Set myCell = Dic.Item(K)
    Else
      Set myCell = myRange.Cells(1, 1).End(xlDown).Offset(1)
      myCell.Value = K
      Set Dic.Item(K) = myCell
    End If
    
    With myCell
      .Offset(, 1).Value = .Offset(, 1).Value + Item1
      .Offset(, 2).Value = .Offset(, 2).Value + Item2
    End With
  Loop
  Close #N
  
  Set myCell = Nothing
  Set myRange = Nothing
  Set Dic = Nothing
End Sub
0 hits

【29134】CSVのデータを加算していく方法について ピンキー 05/9/26(月) 14:28 質問
【29141】Re:CSVのデータを加算していく方法について Jaka 05/9/26(月) 17:11 回答
【29148】Re:CSVのデータを加算していく方法について ピンキー 05/9/26(月) 17:38 発言
【29157】Re:CSVのデータを加算していく方法について Hirofumi 05/9/26(月) 21:22 回答
【29160】Re:CSVのデータを加算していく方法について だるま 05/9/26(月) 22:37 回答
【29230】Re:CSVのデータを加算していく方法について ピンキー 05/9/28(水) 15:03 発言
【29243】Re:CSVのデータを加算していく方法について だるま 05/9/28(水) 19:39 回答
【29278】Re:CSVのデータを加算していく方法について ピンキー 05/9/29(木) 14:30 お礼

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