Daten kopieren in neues Tabellenblatt (tab)

      Sheet1                            Sheet2 (output)
      A    B   C                        A    B   C
1   Name1 100  May                1   Name1 100 May        
2   Name2 200  June               2   Name2 200 June
3   Name3      Oct                3   Name3     Oct
4   Name4 300                     4   Name4 300
5   Name5

Will ich Lesen die Werte in den Spalten B und C. WENN ein Wert vorhanden ist, aus 2 ziehen Sie dann die Zeile in neues Blatt oder Register der gleichen Excel-Arbeitsmappe. Wenn die Spalten B und C sind leer, dann überspringen Sie die Zeile, und bewegen Sie auf die nächste Zeile.

  • Stack-Überlauf ist kein code-writing-service. Bitte zeigen Sie uns den code, den Sie versucht haben, und wir können Ihnen helfen, Eisen aus den Themen.
  • gibt es Kostenlose code-writing-services ?
  • Ich habe keine Ahnung, ich habe nicht mal geschaut, für alle.
InformationsquelleAutor Charanpreet Singh Atli | 2014-12-16
  1. 0

    Können Sie .CurrentRegion() auf den aktiven Bereich zu erhalten, reichen die den ganzen Tisch, und .Copy() Methode :

    Sub CopyData()

Worksheets("Sheet1").Range("A1").Activate

ActiveCell.CurrentRegion.AutoFilter Field:=2, Criteria1:="<>"

ActiveCell.CurrentRegion.AutoFilter Field:=3, Criteria1:="<>"

ActiveCell.CurrentRegion.Copy Worksheets("Sheet2").Range("A1")

End Sub

    Etwas mehr korrekte, aber weniger lesbare version ist : 

    Sub CopyDataxxx()

    Dim TargetRange As Range

    Worksheets("Sheet1").Activate
    Range("A1").Activate

    Set TargetRange = ActiveCell.CurrentRegion

    With TargetRange
        .AutoFilter Field:=3, Criteria1:="<>"
        .Copy Worksheets("Sheet2").Range("A1")
        .AutoFilter 'switches off AutoFilter
    End With

End Sub
    • Sie haben zu vermeiden, kopieren Sie die Zeilen, in denen Spalten B und C leer sind
    • Nein, ist es nicht kopieren Sie die Zeilen mit den leeren Zellen
    InformationsquelleAutor Qbik
  2. 0

    Unten ist der code mit den Erklärungen in den Kommentaren

    Getestet

    Sub checkNcopy()
'Checking the last populated row
lastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

counter = 2

'Copying the variable Names
for i=1 to 3
Worksheets("Sheet2").Cells(1, i) = Worksheets("Sheet1").Cells(1, i)
Next 

For i = 2 To lastRow

'Checking if one of the two columns B and C are populated or not
If Not IsEmpty(Worksheets("Sheet1").Cells(i, 2)) Or Not IsEmpty(Worksheets("Sheet1").Cells(i, 3)) Then

'If one of the two variables are populated then copying the data from sheet1 to sheet2
for j=1 to 3
 Worksheets("Sheet2").Cells(counter, j) = Worksheets("Sheet1").Cells(i, j)
Next
counter = counter + 1
End If

Next

End Sub
    • die Sie VERWENDEN können .CurrentRagion () - Methode anstelle und .Copy () - Methode
    InformationsquelleAutor NEOmen
Schreibe einen Kommentar