String-Array zu neuem Blatt

Question

Der folgende Code führt aus und teilt die ursprüngliche Zelle in ein neues Array, aber ich kann nicht das neue String-Array auf ein neues Blatt verschieben. Die Zeile, die einen Fehler auslöst, ist varHorizArray (1, intCol) .Select. Wie kann dieser Code geändert werden, um das Array direkt auf ein neues Blatt zu verschieben? Ich möchte nach Wörtern im neuen Array suchen.

Sub SplitWithFormat() 
 
    Dim R As Range, C As Range 
 
    Dim i As Long, V As Variant 
 
    Dim varHorizArray As Variant 
 
    Dim rge As Range 
 
    Dim intCol As Integer 
 
      
 
    
 
Set R = Range("d1", Cells(Rows.Count, "d").End(xlUp)) 
 
For Each C In R 
 
    With C 
 
     .TextToColumns Destination:=.Offset(0, 1), DataType:=xlDelimited, _ 
 
     consecutivedelimiter:=True, Tab:=False, semicolon:=True, comma:=False, _ 
 
     Space:=True, other:=True, Otherchar:=vbLf 
 

 
     Set rge = Selection 
 
     varHorizArray = rge 
 
     .Copy 
 
     Range(.Offset(0, 1), Cells(.Row, Columns.Count).End(xlToLeft)).PasteSpecial xlPasteFormats 
 
    End With 
 
Next C 
 

 
Application.CutCopyMode = False 
 

 

 
For intCol = LBound(varHorizArray, 2) To UBound(varHorizArray, 2) 
 
     Debug.Print varHorizArray(1, intCol) 
 
    Next intCol 
 
    
 
Sheets("Sheet1").Activate 
 
varHorizArray(1, intCol).Select 
 
ActiveSheet.Paste 
 

 
End Sub 
 
​

Answer 1

Um direkt ein Array zu einem Arbeitsblatt-Dump, nur einen Bereich mit einer ähnlichen Dimension zu Ihrem Array gesetzt und in diesem Bereich die Array zuweisen.

Sheet1.Activate 
Sheet1.Range(Cells(1, LBound(varHorizArray, 2)), Cells(UBound(varHorizArray), UBound(varHorizArray, 2))) = varHorizArray