Excel VBA質問箱 IV

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

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


22114 / 76734 ←次へ | 前へ→

【60005】Re:表の集計
質問  ミュウ  - 09/1/23(金) 12:08 -

引用なし
パスワード
   ▼マクロマン さん:

本当にありがとうございます。
申し訳ありませんがもうひとつ教えてください・・・

現在、回答いただいたものを参考にして作成しているのですが、
以下に命令文を書きますので教えていただけないでしょうか?

Sub datashuyaku()
 Dim myDic As Object, mykey
 Dim c, myVal
 Dim i As Long
 
 Set myDic = CreateObject("Scripting.Dictionary")
 
 myVal = Range("A2", Range("A" & Rows.Count).End(xlUp)).Value
 
  For Each c In myVal
   If Not c = Empty Then
     If Not myDic.Exists(c) Then
       myDic.Add c, ""
     End If
   End If
  Next
 
  mykey = myDic.Keys
  For i = 0 To myDic.Count - 1
   Cells(i + 2, 4) = mykey(i)
  Next i
 
Set myDic = Nothing
 
Dim longend As Long
 
   longend = Application.ActiveWorkbook.Worksheets(1).Range("A65536").End(xlUp).Row
 
For i = 2 To longend
 
Range("D2"), Range("B1:B65536"))

 Cells(i, 5) = Application.WorksheetFunction.SumIf(Range("A2:B65536"), Cells(i, 4), Range("B1:B65536"))

Next
 
 
End Sub

一応最初の部分で重複無しの項目を取得し、
そのあと数値を計算させていますが、
計算の数字がおかしいです。参照するセルがずれるみたいで
おかしいです。
あと項目がないところに0が出るのですが、
ご教授いただけないでしょうか・・・
よく分かりにくい説明で申し訳ありません。
4 hits

【59989】表の集計 ミュウ 09/1/22(木) 20:11 質問
【59990】Re:表の集計 マクロマン 09/1/22(木) 20:24 発言
【59991】Re:表の集計 ミュウ 09/1/22(木) 20:35 回答
【59992】Re:表の集計 マクロマン 09/1/22(木) 20:44 発言
【59993】Re:表の集計 ミュウ 09/1/22(木) 20:50 お礼
【59997】Re:表の集計 ミュウ 09/1/22(木) 23:47 お礼
【60000】Re:表の集計 マクロマン 09/1/23(金) 8:14 発言
【60005】Re:表の集計 ミュウ 09/1/23(金) 12:08 質問
【60008】Re:表の集計 マクロマン 09/1/23(金) 12:48 発言
【60009】Re:表の集計 ミュウ 09/1/23(金) 13:27 お礼
【60010】Re:表の集計 マクロマン 09/1/23(金) 13:53 発言
【60012】Re:表の集計 ミュウ 09/1/23(金) 14:08 お礼
【60013】Re:表の集計 マクロマン 09/1/23(金) 14:46 発言

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