Einfügen von Werten von einem Blatt in ein anderes

Question

Wie bekomme ich Daten von 'Sheet1' und füge diese Anzahl von Zählern in 'Sheet2' ein.

zum Beispiel habe ich eine Tabelle in sheet1

Count------name  
20----------ABCD  
40----------EFGH  
11----------IJKL 

Ich brauche für Namen 20 Werte einfügen ‚ABCD‘ in ‚Tabelle2‘ auch ich will eine leere Zeile zwischen jeder Namensänderung einzufügen.

Answer 1

So etwas wie diese

Option Explicit 

Sub PasteValues() 
Dim i As Long, count As Long, value As String, lastrow As Long 
Sheets("sheet1").Activate 
i = 1 
lastrow = 1 
Do While Cells(i, 1) <> "" 
    count = Cells(i, 1) 
    value = Cells(i, 2) 
    With Sheets("sheet2").Range("A" & lastrow & ":" & "A" & lastrow + count) 
     .value = value 
    End With 
    lastrow = lastrow + count + 1 
    i = i + 1 
Loop 
End Sub 

In diesem Code gibt es ein kleines Problem ist, sicher, dass Sie es verbessern