Re: How to select data in non adjacent rows of a column automatica

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance



What I have is a list of 1500 name and address labels. The "names" are in
cells A1, A9, A17, A25 and so on, all are 8 rows apart. The "addresses" are
in cells A2, A10, A18, A26, all 8 rows apart. the city, state and zips are
in cells A3, A11, A19, A27 and so on all 8 rows apart also. I need the names
in one column, addresses in the next column and the city state and zip in the
next. I have done this before but I can't remember how.

"Jarek Kujawa" wrote:

one way:

in B2 insert the formula:

=IF(MOD(ROW()-1,8),"",A1)

copy down

then select the whole range in col B, copy-pasteSpecial->Values

or through VBA


Sub moving()

For i = 1 To 100
If ((Cells(i, "A").Row - 1) Mod 8) = 0 Then
Cells(i, "A").Offset(0, 1).Value = Cells(i, "A").Value
End If
Next i

End Sub

suit 100 to suit


U¿ytkownik "jdpf" <jdpf@xxxxxxxxxxxxxxxxxxxxxxxxx> napisa³ w wiadomo¶ci
news:D0F93B2D-662F-40AE-8F3D-D40E80282080@xxxxxxxxxxxxxxxx
How can I select the data in non adjacent rows of a column (eg. A1, A9.
A17.
A25.......A800, A 808, A816 etc.) and place it into another column? The
data
I need to select is consistently 8 rows apart in a very large spreadsheet.
I
am using Excel 2003.



.



Relevant Pages

  • Re: How to avoid MouseEvent recursion?
    ... a number of folks suggest I handle this by placing labels ... picture box to fire *only* when I'm physically moving the mouse cursor. ... Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As ... Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ...
    (microsoft.public.vb.general.discussion)
  • Re: Cannot save Form changes with VBA
    ... If the form and textbox are bound to a field in a table then the ... Private Sub Form_Load ... I use labels on the form to record which file was last loaded. ... Public Function adhIsFormOpenAs Boolean ...
    (comp.databases.ms-access)
  • Re: Problems with charts, VBA and series...
    ... Here's a format that will use the first row as series labels and the ... and blank cell, and make your chart. ... Sub SeriesNameAssigner() ... Dim oSrs As Series ...
    (microsoft.public.excel.charting)
  • Re: Macro to find and record Unique values?
    ... Then correct other wordwrap problems by going to ... change the filename to suit. ... >> Sub TryNow() ... >> Dim mySh As Worksheet ...
    (microsoft.public.excel.misc)
  • Re: Saving Envelope Settings
    ... >with Microsoft Word. ... >suit my requirements. ... mentioned in Word Help ... Next go to Envelopes and Labels on the ...
    (microsoft.public.word.application.errors)