Wie kann ich R Subset-Mechanismus in Excel VBA replizieren?

Question

Zunächst einmal vielen Dank für das Lesen meiner Post.

Ich möchte fragen, wie kann ich R Subset-Mechanismus in excel-vba replizieren?

Hier ist meine r Funktion:

Subdeck2 = deck2[(deck2[,3]>=10 & deck2[,4]<=30),] 

Der Code verwendet r ein data.frame Objekt zu erstellen Subdeck2 genannt, die eine Teilmenge eines data.frame Objekt genannt deck2, die die Zeilen von deck2 enthalten, die eine dritte Spalte Wert haben von mehr als oder gleich zehn und ein vierter Spaltenwert von weniger als oder gleich dreißig.

Ich möchte dies in excel-vba replizieren, und ein Arbeitsblatt, das eine Teilmenge eines Arbeitsblattes mit den Quelldaten ist. Ich denke, die Array-Benennung in excel ist sehr hilfreich, um die Zeilen und Spalten zu verweisen.

In r wird es verwirrend, wenn ich dies wiederholt tun muss, weil ich mich an die Zeilen- und Spaltennummern erinnern muss, die ich bereits eingegeben habe.

Ich muss nur dieses eine Ding in excel tun. Ich habe bereits ein Buch über vba Programmierung gekauft, aber es ist wie 1000 Seiten lang und ich kann nicht scheinen, das Wort Teilmenge dort zu finden.

Irgendwelche Vorschläge, wie dies zu tun ist oder wo ich lernen kann, dies zu tun, wird sehr geschätzt. Vielen Dank!

Answer 1

Hier ist ein Beispiel - nicht so knapp wie Ihre r Funktion.

Die Methode ist kommentiert - aber im Grunde iteriert sie die Zeilen des Quellbereichs und überprüft jede Zeile auf die Kriterien. Dann wählt es den Ausgabebereich aus und ändert seine Größe auf die Größe der gefilterten Daten vor der Ausgabe.

Option Explicit 

Sub FilterLikeRSubset() 

    Dim rngData As Range 
    Dim rngRow As Range 
    Dim rngFilter As Range 
    Dim rngOutput As Range 

    'get data 
    Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("A1:D5") 

    'iterate rows in data 
    For Each rngRow In rngData.Rows 
     'test row criteria 
     If rngRow.Cells(1, 3) >= 10 And rngRow.Cells(1, 4) <= 30 Then 
      'success 
      If rngFilter Is Nothing Then 
       Set rngFilter = rngRow 
      Else 
       Set rngFilter = Union(rngFilter, rngRow) 
      End If 
     End If 
    Next rngRow 

    'set range for output 
    Set rngOutput = ThisWorkbook.Worksheets("Sheet1").Range("A10") 
    Set rngOutput = rngOutput.Resize(rngFilter.Rows.Count, rngFilter.Columns.Count) 

    'output 
    rngOutput.Value = rngFilter.Value 

End Sub 

Beispielausgabe: