title: Row data and column data count using VBScript
body: <p>How using VBScript I can count the number of rows filled with data and how many column has a value for a particular row?</p>
  
  <pre><code>       Col1 Col2 Col3 ........ColN-1  ColN+1...ColN+2.......ColN+2
  
   Row1   A         B                             Null         Null
   Row2   1    2    Y                             .
   Row3        2                                  .
   Row4        P    Z 
    .                                             .
    .
    .
   RowN-2                                         .
   RowN-1                         T        L      Null.......Null
   RowN                     S
   RowN+1 Null ........(till the last column of the excel sheet that its version supprts.)
  </code></pre>
  
  <p>So here my required Loop iteration which i would use for my other logic is N for rows and for columns it would be N+1
  <strong><em>Update</em></strong></p>
  
  <pre><code>   Option Explicit
  
     Dim rg,CountBlank
  
     For C=0 to 10
  
      Set rg = Ob6.Range(Ob6.Columns(c),Ob6.Columns(c))
      CountBlank = objExcel1.Application.WorksheetFunction.CountBlank(rg)
      MsgBox("Column"&amp;C": "&amp;"Has"&amp;(rg.rows.Count-CountBlank))
   Next
  </code></pre>
  
  <p>Thanks</p>