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 

  • Puoi dichiarare gli arrays aggrovigliati in excel VBA direttamente?
  • Recupero di file Excel dal archivio interno Apache POI
  • Come formattare i dati JSON in tempo reale (da sensori) in una cartella di lavoro di Excel in Python?
  • Array Vba multidimensionale
  • 'Per loop' per popolare arrays
  • Excel: Riepilogare l'arrays non convenzionale tramite indiretto + indirizzo
  • Formula Excel per arrays arrays
  • Sto ottenendo un errore di arrays previsto e non riesco a identificare come risolverlo.
  • Recupero di file Excel dal archivio interno Apache POI
  • C # COM Interop: Scrittura a una cella in un foglio di Excel
  • EXCEL - Array basato sul valore della cella
  • Come risolvere il java.lang.VerifyError: org / apache / poi / xssf / usermodel / XSSFWorkbook?
  • 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.