未知数の変数を初期化しようとしています

Question

私は辞書を初期化しようとしています。私は3、4、10などが必要であるかどうかはわかりません。だから私は、次のことを試してみました：

dim wb1 as workbook 
set wb1 = ThisWorkbook 
dim strdict as new scripting.dictionary 
    For c = 1 To 65536  'for all rows 
    If strdict.Exists(wb1.Sheets(1).Cells(1, 4)) Then 
    'if that string has already been logged ie this is not the first pass of the current string, log it 
     strdict(wb1.Sheets(1).Cells(1, 4)) = strdict(wb1.Sheets(1).Cells(1, 4)) + 1 
    Else 
     strdict.Add wb1.Sheets(1).Cells(1, 4), 1     
     'if that string is not present, add it to the dictionary 
     dim left(wb1.Sheets(1).cells(1,4), 3) & "log" as Scripting.dictionary 
    End If 
    Next c 

私は

dim left(wb1.Sheets(1).cells(1,4), 3) & "log" as Scripting.dictionary 

が機能しなかったことを驚きましたが、私はと思っています何を達成する方法があると言うことはできません？それともvbaができないものですか？

Answer 1

投稿したコードに基づいて複数の辞書が必要ではありません。 Col Dからはっきりとした値とカウントを取得したいと思うようですか？

EDIT：はあなたの説明

dim wb1 as workbook 
dim dictCount as new scripting.dictionary 
dim dictSub as new scripting.dictionary 
dim k, kSub 

set wb1 = ThisWorkbook 

For c = 1 To 65536 

    k = wb1.Sheets(1).Cells(c, 4) 

    'seen this key before? 
    If Not dictCount.Exists(k) Then   
     dictCount.Add k, 0 
     dictSub.Add k, New Scripting.Dictionary 
    End If 

    dictCount(k) = dictCount(k) + 1 'increment count 

    'track sub strings 
    kSub = Left(k, 3) 
    If dictSub(k).Exists(kSub) Then 
     'increment the count 
     dictSub(k)(kSub)=dictSub(k)(kSub)+1 
    Else 
     dictSub(k).Add kSub, 0 
    End If     


Next c