1

VBScriptを使用して、データで満たされた行の数と、特定の行の値を持つ列の数をカウントするにはどうすればよいですか？

       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.)

したがって、ここで他のロジックに使用する必要なループ反復は、行の場合はN、列の場合はN+1 更新になります。

   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"&C": "&"Has"&(rg.rows.Count-CountBlank))
 Next

ありがとう

4

1 に答える 1

1

始めるためにこれを試してください。各行にデータがある列の数が表示され、各列にデータがある行の数が表示されます。次に、ニーズに合わせて変更できます。

編集：データの1列/行のみで最初の行/列をキャプチャするようにコードが更新されました：

Option Explicit

Dim rg

'loop through columns
For C=0 to 10

    Set rg = Ob6.Columns(c)

    If objExcel1.Application.WorksheetFunction.CountA(rg) =1 Then

       Exit For

    End If

Next

MsgBox("Column" & C & " is first column with only 1 row")

'loop through rows
For C=0 to 10

    Set rg = Ob6.Rows(c)

    If objExcel1.Application.WorksheetFunction.CountA(rg) =1 Then

       Exit For

    End If

Next

MsgBox("Column" & C & " is first row with only 1 column")
于 2012-12-13T15:18:50.527 に答える