将值从一张纸粘贴到另一张纸

Question

如何从＆＃39; Sheet1＆＃39;中获取数据？并在＆＃39; Sheet2＆＃39;。

中粘贴该计数

例如，我在sheet1中有一个表

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

我需要为名称＆＃39; ABCD ＆＃39;粘贴20个值在＆＃39; Sheet2＆＃39;我还想在每个名称更改之间插入一个空行。

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

在此代码中存在一个小问题，确定您会改进它