Scrittura di una macro per incollare un'arrays

Im cercando di incollare una matrix che ho creato, ho eseguito la macro e non sembra essere un problema, solo che l'arrays non è affatto incollato!

Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Info").Range("A1").Select Dim iLastRow As Long iLastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row Dim arrmatrix() As String ReDim arrmatrix(1 To iLastRow) For i = 1 To iLastRow Range("A2").Cells(i, 1).Select If Selection.Offset(11, 0) = "Pi emitida" Then arrmatrix(i) = Range("A2").Cells(i, 1).Value End If Next i Worksheets("Inicio").Range("G4").Value = arrmatrix() End Sub 

  • Manipolazione di celle di celle
  • Excel: Riepilogare l'arrays non convenzionale tramite indiretto + indirizzo
  • errore quando si utilizza una matrix per filtrare sul foglio
  • Ruby xls codifica
  • Visualizzazione di file di Excel nella mia applicazione Android tramite API
  • C # COM Interop: Scrittura a una cella in un foglio di Excel
  • Errore: l'esecuzione non è rioutput per l'attività ': app: transformClassesWithDexForDebug' dopo aver aggiunto poi-ooxml: 3.7 libreria
  • Codice Excel per restituire valori specifici da un altro foglio di lavoro
  • Posso utilizzare una formula di matrix per aiutare a estrarre i dati in una tabella
  • excel diverse funzioni SUM.IF arrays
  • Colonna di sottoinsieme di Excel a una matrix usando la formula
  • Concatenare i valori dalla tabella corrispondente
  • One Solution collect form web for “Scrittura di una macro per incollare un'arrays”

    • Non è chiaro perché si ha questa come macro di evento di cambiamento di worksheet_change
    • Ridimensionare l'intervallo di destinazione per essere la stessa dimensione (e forma) dell'arrays
    • Dichiarare l'arrays come variante di tipo, non string, a less che non si desideri scrivere l'elemento per elemento.
    • Se l'intervallo di destinazione è una colonna, devi trasporre l'arrays; o dichiararla come un arrays 2D e riempire la prima dimensione:

     ReDim arrmatrix(1 To iLastRow, 1 to 1) ... arrmatrix(i,1) = Range("A2").Cells(i, 1).Value ... Worksheets("Inicio").Range("G4").Resize(ubound(arrmatrix,1)).Value = arrmatrix() ... 

    Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.