VBA Remove values from a loop

[Stephen_IV]

Good morning,

First of all I am not very good at VBA but was trying to exclude values in a loop. For instance this loop will give me a range of 1 to 61. Is there a way to exclude some of the values like take out values 9, 18, 19, 23, 24, 29, 33, 34, 35, 38. I could probably write a delete sub to do this afterwords but is there an easy way or am I missing something? Thanks in advance.

Sub practice()
Dim i As Integer
    For i = 1 To 61
        Cells(i, 1) = i
    Next
End Sub

 

[Fluff]

How about

Sub practice()
   Dim i As Integer
   Dim rw As Long
   
   rw = 1
   For i = 1 To 61
      Select Case i
         Case 9, 18, 19, 23, 24, 29, 33 To 35, 38
         Case Else
            Cells(rw, 1) = i
            rw = rw + 1
      End Select
   Next i
End Sub

 

[Stephen_IV]

That's it Fluff!! Thank you very much for the info! Very much appreciate it!

 

[Fluff]

Glad to help & thanks for the feedback

 

[Rick Rothstein]

Here is another macro that you may find interesting (no loop)...

[table="width: 500"]
[tr]
	[td]Sub Test()
  With Range("A1:A61")
    .Formula = "=IF(OR(ROW(A1:A61)={9,18,19,23,24,29,33,34,35,38}),"""",ROW(A1:A61))"
    .Value = .Value
    .SpecialCells(xlBlanks).Delete xlShiftUp
  End With
End Sub[/td]
[/tr]
[/table]

 

[Rick Rothstein]

Here is another macro that you may find interesting (no loop)...

[table="width: 500"]
[tr]
	[td]Sub Test()
  With Range("A1:A61")
    .Formula = "=IF(OR(ROW(A1:A61)={9,18,19,23,24,29,33,34,35,38}),"""",ROW(A1:A61))"
    .Value = .Value
    .SpecialCells(xlBlanks).Delete xlShiftUp
  End With
End Sub[/td]
[/tr]
[/table]

If the OP is willing to use full range designations instead of just row numbers, then here is another non-looping macro that can be considered...

Sub Test()
  [A1:A61] = [ROW(1:61)]
  Range("9:9,18:19,23:24,29:29,33:35,38:38") = ""
  [A1:A61].SpecialCells(xlBlanks).Delete xlShiftUp
End Sub