title: Multidimensional array and comparing values in each array and give result for each array
body: <p>I following program to call values to array and compare the values and give a result. I asked this question in another thread.
  <a href="https://stackoverflow.com/questions/42903181/vpa-program-for-compare-values-in-array-and-give-a-result-ms-excel">VPA program for compare values in array and give a result (MS Excel)</a></p>
  
  <p>Here we can see that one dimensional array to which values are assigned. But i want to call values from multiple column when a <code>IF</code> condition is true </p>
  
  <pre><code>Dim arr as variable
  For i = 1 to u 
  if mycondition1 then
  x = Cells(i, 2).Value
  m = Application.WorksheetFunction.CountIf(Range("B4:B" &amp; u), x)
  ReDim arr(1 To m)
  For j = 1 to u
  if mycondition2 then
  arr(y) = Cells(j, 27)
  End If
  Next j
  </code></pre>
  
  <p>For one dimensional array i use code <code>arr(y) = Cells(j, 27)</code>. Here i want to call values from column 27. Like this i want to assign values from different column (Say 27, 28, 29 upto 32). Instead of create six arrays, I know i can use two dimensional array say <code>arr(1 to m, 1 to 6)</code> and get values assigned from cells of each column and rows. But don't know how to compare values for each column similar to codes given below (which is comparison for one column values). I forced to write one comparison codes for each column. So my coding lines are more and take lots of time to execute. And i want do the for loop upto <code>u=100.000</code> rows. Is there any easy way </p>
  
  <pre><code>w = arr()
  Res = Application.Match(Array("No", "-"), w, 0)
  For Each r In Res
  ThisWorkbook.Worksheets("Sheet1").Cells(i, 27) = "X"
  If Not IsError(r) Then
  ThisWorkbook.Worksheets("Sheet1").Cells(i, 27) = "O"
  Exit For
  End If
  Next r
  Erase arr()
  Exitsinglepart:
  End If
  Next i
  End Sub
  </code></pre>
  
  <p>Please help me how to rewrite this code for comparing values called from each column.</p>