將一張紙粘貼到另一張紙上

Question

如何從「Sheet1」中獲取數據並在「Sheet2」中粘貼該數量的計數。

例如，我有一個表在Sheet1

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

我需要在「Sheet2的」粘貼20個值名稱「ABCD」我也想插入每個名稱變化之間的一個空白行。

Answer 1

像這樣的事情

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 

在此代碼中有一個小問題，相信你一定會改善它