Ich will die zweite leere Zeile in eine Tabelle finden, um die kopierte Zeile einzufügen oder eine neue Bereiche erstellen. Wie kann ich mit VB-Sprache ausdrucken?
Anbei ist meine Programm, jetzt kann ich nur mit Cells(9,1+i)und Cells(10.1+i) ersetzen. KÖnnten sie mir einige Vorschlag geben?
Sub ZeileKopien()
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(1, 1 + i) <> "" Then
Cells(1, 1 + i).Copy
? Cells(9, 1 + i).Select
ActiveSheet.Paste
If Cells(5, 1 + i) <> "" Then
Cells(5, 1 + i).Copy
? Cells(10, 1 + i).Select
ActiveSheet.Paste
End If
End If
Next i
End Sub
Dank Sehr!
Weilu Xu