CODEWITHSUNDEEP
excelvba
bammerr
bammerr

Reputation: 43

Copy data to a sheet with four rows separating each cell from the original sheet

How can I take row entries from one sheet (i.e. data) and paste them onto another sheet (i.e. calculate) with three rows between the pasted cells?

I could copy and paste but that would be so tedious. Looking for a formula or VBA code.

Data sheet

Calculate shee

Upvotes: 0

Views: 34

Answers (1)

KMAX
KMAX

Reputation: 36

If Sheet1 is your source sheet
Sheet2 is your destination sheet
Then the VBA code is :

Option Explicit

Sub Copy_Paste()

Dim i As Integer
For i = 1 To 100 'number of rows 

 Sheets("Sheet1").Range(Cells(i, 1), Cells(i, 2)).Copy Sheets("Sheet2").Cells(((i - 1) * 4) + 1, 1)

Next i

End Sub

Hope this helps

Upvotes: 1

Related Questions