Prendendo i valori dalla colonna 1, inserendo i fogli di lavoro separati

Utilizzo di VBA in Excel; Ho nomi all'interno della colonna 1 sul mio foglio attivo, voglio portrli al proprio foglio di lavoro. Quindi tutte le celle con valore di "Nome1" vanno al foglio di lavoro denominato "Nome1" e lo stesso per tutti i nomi all'interno della colonna. Il numero di nomi non è impostato. Non sono sicuro di come procedere su questo come sono nuovo alla copia di nuovi fogli di lavoro.

Basta usare la gamma End property per select le celle pertinenti e copiare i loro valori nelle celle corrispondenti nella colonna di destinazione desiderata nel foglio di lavoro Name1.

Nel seguito suppongo

  1. Si desidera copiare i nomi dalla row 2 in basso (ad esempio perché si dispone di una row di intestazione)
  2. Si desidera copiare nella prima colonna di un nuovo foglio denominato Name1, a partire dalla row 2
  3. Il foglio di lavoro originale da cui state copiando è il tuo ActiveSheet

Assegna il seguente codice a qualsiasi button o evento che ti piace:

Sub CopyNames() Dim TargetRange As Range Dim NameSheet As Worksheet ' Prevent Excel screen from flickering as it copies Application.ScreenUpdating = False ' Set the range of data you have to copy in column A, from row 2 to the last non-empty cell Set TargetRange = ActiveSheet.Range("A2", ActiveSheet.Range("A2").End(xlDown)) ' Add the worksheet and rename it Set NameSheet = Worksheets.Add NameSheet.Name = "Name1" ' Copy and paste to the new worksheet TargetRange.Copy NameSheet.Cells(2, 1).Activate ActiveSheet.Paste ' Exit Copy mode Application.CutCopyMode = False End Sub