Copy and paste one cell into 48 and then repeat
Closed
katie456
-
Oct 29, 2018 at 01:05 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Contributor Last seen December 27, 2022 - Oct 29, 2018 at 11:52 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Contributor Last seen December 27, 2022 - Oct 29, 2018 at 11:52 AM
Related:
- Insert a new sheet at the end of the tab names and paste the range names starting in cell a1. autofit columns a:b and name the worksheet as named ranges.
- My contacts list names - Guide
- Count names in excel - Guide
- Monk names wow - Guide
- How to insert at the rate in laptop - Guide
- Where is the insert key on a laptop - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Contributor
Last seen
December 27, 2022
555
Oct 29, 2018 at 11:52 AM
Oct 29, 2018 at 11:52 AM
Hi Katie,
Give the following code a try:
Best regards,
Trowa
Give the following code a try:
Sub RunMe()
Dim x As Integer
x = 2
For Each cell In Range("J2:J389")
cell.Copy Range(Cells(x, "G"), Cells(x + 47, "G"))
x = x + 48
Next cell
End Sub
Best regards,
Trowa
