How to skip one column in an Array

[288enzo]

I'm trying to skip one column in my array.
Below where I have "Skip" is the column I want to skip. It would be the 7th column or B11.

    var = Array("ABE", "ACE", "ILT", "IND", "TOP", "TOP2", Skip, "ADD")
    Set rng = Range("B4")
    For i = 0 To UBound(var)
    rng.Offset(0, i + 1) = "=IFERROR(ROUNDDOWN(COUNTIFS(SUBAREA,RIGHT(A4,3),DEPT," & MYDEPT & "," & var(i) & ",""Y"")/COUNTIFS(SUBAREA,RIGHT(A4,3),DEPT," & MYDEPT & "," & var(i) & ",""<>N/A""),2),""N/A"")"
    Next i

 

[rlv01]

There area lot of different ways to do that. One way:

    Var = Array("ABE", "ACE", "ILT", "IND", "TOP", "TOP2", "Skip", "ADD")
    Set Rng = Range("B4")
    For i = 0 To UBound(Var)
        Select Case i
            Case 6    'skip
            Case Else
                Rng.Offset(0, i + 1) = "=IFERROR(ROUNDDOWN(COUNTIFS(SUBAREA,RIGHT(A4,3),DEPT," & MYDEPT & "," & Var(i) & ",""Y"")/COUNTIFS(SUBAREA,RIGHT(A4,3),DEPT," & MYDEPT & "," & Var(i) & ",""<>N/A""),2),""N/A"")"
        End Select
    Next i

 

[288enzo]

.

 

[288enzo]

There area lot of different ways to do that. One way:

    Var = Array("ABE", "ACE", "ILT", "IND", "TOP", "TOP2", "Skip", "ADD")
    Set Rng = Range("B4")
    For i = 0 To UBound(Var)
        Select Case i
            Case 6    'skip
            Case Else
                Rng.Offset(0, i + 1) = "=IFERROR(ROUNDDOWN(COUNTIFS(SUBAREA,RIGHT(A4,3),DEPT," & MYDEPT & "," & Var(i) & ",""Y"")/COUNTIFS(SUBAREA,RIGHT(A4,3),DEPT," & MYDEPT & "," & Var(i) & ",""<>N/A""),2),""N/A"")"
        End Select
    Next i

Worked perfectly, thank you for the help.