如何在Excel中多次在一次粘貼數據

Question

之間說我有這樣的

A B C 
1 Jim 1 10  
2 Jim 2 20 
3 Jim 3 30 
4 Tom 1 20 
5 
6 
7 Jos 1 15 
8 
9 

數據我要的是複製的行2和3，然後粘貼到排5,6，然後8,9 ， 等等。空行總是2.

單元格2C和3C中有一個公式計算列B中的值乘以單元格C1。

所以，結果會是這樣

A B C 
1 Jim 1 10  
2 Jim 2 20 
3 Jim 3 30 
4 Tom 1 20 
5 Tom 2 40 
6 Tom 3 60 
7 Jos 1 15 
8 Jos 2 30 
9 Jos 3 45 

問題是我必須粘貼幾百倍，這將是耗時。

如果有人能幫到，我將不勝感激。

Answer 1

請記住：

• 你需要確保你有在列A1的值，否則 只是增加的i值到第二行數據。

• Var是一個虛擬變量，用於在發生新名稱時保持跟蹤。

• firstValue將包含每個名稱的第一行的rownumber。

代碼

Sub test() 

Var = 0 
LastRow = Cells(Rows.Count, "A").End(xlUp).Row + 2 

For i = 2 To LastRow 
    If Range("A" & i).Value = "" Then 
     If Var = 0 Then 
      firstValue = i - 1 
      Range("A" & i).Value = Range("A" & i - 1).Value 
      Range("B" & i).Value = Range("B" & i - 1).Value + 1 
      Range("C" & i).Value = Range("C" & firstValue).Value + Range("C" & i - 1).Value 
      Var = Var + 1 
     Else 
      Range("A" & i).Value = Range("A" & i - 1).Value 
      Range("B" & i).Value = Range("B" & i - 1).Value + 1 
      Range("C" & i).Value = Range("C" & firstValue).Value + Range("C" & i - 1).Value 
      Var = Var + 1 
     End If 
    Else 
     Var = 0 
    End If 
Next i 

End Sub 

Answer 2

Sub MakeRows() 
    Dim Sh As Worksheet, DataRng As Range, CopyRng As Range, TargetRng As Range 

    Set Sh = Sheets(1) 'select your sheet here 
         'you can also do it like this = Worksheets("name") 

    Set DataRng = Sh.Range("B2") 
    Set TargetRng = Sh.Range("A4") 

    While IsEmpty(TargetRng) = False 
     TargetRng.Copy TargetRng.Offset(1, 0) 
     TargetRng.Copy TargetRng.Offset(2, 0) 

     Set CopyRng = Sh.Range(DataRng, DataRng.Offset(1, 1)) 
     CopyRng.Copy TargetRng.Offset(1, 1) 

     Set TargetRng = TargetRng.Offset(3, 0) 
     Set DataRng = DataRng.Offset(3, 0) 
    Wend 
End Sub 

在單元格2C和3C中使用相對引用。