Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 12-02-2016, 08:38 PM
rustywriter rustywriter is offline How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Windows 10 How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Office 2016
Novice
How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually)
 
Join Date: Dec 2016
Posts: 3
rustywriter is on a distinguished road
Thumbs down How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually)

Hi,

I have data that has this format:

<Book Title>
<Author>
<Purchase Date>
(repeat...)

Here's a sample (the first 2 sets where the above format is a set):

The Wrong Side of Goodbye
Michael Connelly
November 22, 2016
The Jewel of Dantenos
Brian D. Anderson


November 16, 2016

It's a long list. I'm hoping I can automate some or all of what needs to be done to it.

What I need is this format:

<Book Title> by <Author>

Example:

The Wrong Side of Goodbye by Michael Connelly
The Jewel of Dantenos by Brian D. Anderson

Ergo, I need to automate the following steps:
1. delete every third row
2. place 'by' after the Book Title
3. combine ever two rows
(I hope that makes sense)

Twenty years ago on a UNIX box I could have done this with awk in seconds but now I just have excel. Any help with any of the steps would be greatly appreciated!!

Old programmer whose forgotten everything, ;-)
Rusty
Reply With Quote
  #2  
Old 12-02-2016, 09:51 PM
macropod's Avatar
macropod macropod is offline How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Windows 7 64bit How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Assuming your data are on Sheet1, starting in A1, you could create a new sheet and insert the following formula in A1:
=OFFSET(Sheet1!$A$1,(ROW()-1)*3,)&" by "&OFFSET(Sheet1!$A$1,(ROW()-1)*3+1,)
Copy that formula down as far as needed. No code required.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #3  
Old 12-03-2016, 01:20 AM
rustywriter rustywriter is offline How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Windows 10 How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Office 2016
Novice
How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually)
 
Join Date: Dec 2016
Posts: 3
rustywriter is on a distinguished road
Default

Hi Paul,

That was magic!! I'll study that formula and learn a lot. Been using EXCEL since '93 but that was above my pay grade, lol! Thank you!!

Rusty

<email address deleted>
PS: if you're a reader, are a sci-fi fan and have a kindle or nook I'll send you the first two books of my four book series (book three coming out next year). just email me at above address (if this forum lets me post links) and let me know which eReader you have and I'll email them to you.
Reply With Quote
  #4  
Old 12-03-2016, 01:30 AM
macropod's Avatar
macropod macropod is offline How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Windows 7 64bit How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Cross-posted at: http://www.mrexcel.com/forum/excel-q...-manually.html
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #5  
Old 12-03-2016, 04:39 PM
rustywriter rustywriter is offline How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Windows 10 How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Office 2016
Novice
How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually)
 
Join Date: Dec 2016
Posts: 3
rustywriter is on a distinguished road
Default

Quote:
Originally Posted by macropod View Post
Got it...sorry about that.
Reply With Quote
Reply

Tags
automation, combine data in rows, deleting a row



Similar Threads
Thread Thread Starter Forum Replies Last Post
How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) How do we add one or more rows manually( by typing row numbers). ? Nawshoo Excel 5 01-05-2016 02:15 AM
How to Delete the same watermark that are in 300 slides. I cant dare to manually delete. yeshwanthkota111 PowerPoint 0 09-05-2015 10:03 AM
Macro to Combine Multiple Rows into One Row brunssl2 Excel Programming 10 01-13-2015 01:56 PM
How can I delete every 3rd row/add 'by'/combine ever two rows (besides doing it manually) Delete All empty Rows - Print - Undo all Rows deleted Bathroth Word VBA 1 10-01-2014 01:40 PM
Do I manually delete messages after archiving to create space? alshcover Outlook 0 08-21-2014 10:07 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 10:51 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft