Excel VBA從多個範圍計數不同的值

我想找出3個不同範圍內的不同值（文本）。我想我找到了一種在線方式，但它給了我一個錯誤。Excel VBA從多個範圍計數不同的值

這裏是代碼;

Dim MyDict As Object, MyCols As Variant, OutCol As String, LastRowXY_2 As Long 
Dim XY_A As Variant, I_XY As Long, MyData_XY As Variant 

Set MyDict = CreateObject("Scripting.Dictionary") 
MyCols = Array("P", "S", "V") 
OutCol = "AN" 

For Each XY_A In MyCols 
    LastRowXY_2 = Worksheets(Ders_Sheet_Adi).Cells(Rows.Count, XY_A).End(xlUp).Row 
    MyData_XY = Worksheets(Ders_Sheet_Adi).Range(XY_A & "22:" & XY_A & LastRowXY_2).Value 
    For I_XY = 1 To UBound(MyData_XY) 
     If MyData_XY(I_XY, 1) <> "" Then MyDict(MyData_XY(I_XY, 1)) = 1 
    Next I_XY 
Next XY_A 

Worksheets(Ders_Sheet_Adi).Range(OutCol & "1").Resize(MyDict.Count, 1).Value = WorksheetFunction.Transpose(MyDict.keys)

在「XY_A」的第二次運行中，MyData_XY給出了「類型不匹配」錯誤。

我可以使用任何形式的想法。

來源

2017-09-25 Bildircin13

檢查什麼的'LastRowXY_2' –

在第二循環中的價值，LastRowXY_2的值是「22」 – Bildircin13

所以現在調試並查看「MyData_XY」（空） –

選項1：

變化：

Worksheets(Ders_Sheet_Adi).Range(OutCol & "1").Resize(MyDict.Count, 1).Value = WorksheetFunction.Transpose(MyDict.keys)

到

Range(OutCol & "1").Resize(1, 1).Value = WorksheetFunction.Transpose(2)

，並檢查是否現在的工作。如果是這樣，您在MyDict中沒有任何值，因此會引發錯誤。

選項2： 你認爲MyData_XY是什麼？一個範圍，一個數組？嘗試這樣稱呼它 - >MyData_XY(1)(1,1)代替這一點 - 在調試模式下在第二循環中>MyData_XY(1,1)

來源

2017-09-25 12:53:08 Vityata

Thx回答。不幸的是，第一個選項沒有任何效果，因爲我在該行之前得到錯誤。我無法理解我害怕的第二種選擇。 – Bildircin13

@ Bildircin13 - 關於選項2 - 你的數組裏有數組。你指的是這樣 - >'MyData_XY（1,1）'。你應該像這樣引用它'MyData（1）（1,1）' – Vityata

Excel VBA從多個範圍計數不同的值

回答

相關問題