Zeile data und Spalte Daten zählen die Verwendung von VBScript

Wie mit VBScript kann ich die Anzahl der Zeilen mit Daten gefüllt sind und wie viele Spalte hat einen Wert für eine bestimmte Zeile?

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

So, hier meine gewünschten Loop-iteration, die würde ich verwenden für meinen anderen Logik ist N für die Zeilen und für Spalten, es wäre N+1
Update

   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

Dank

schöne Frage, aber bitte zeigen Sie uns alle Anstrengungen, die Sie gemacht haben, um zu versuchen, dies zu tun. Wir können Ihnen helfen, in der Vergangenheit Ihre Punkte stecken, aber niemand ist wirklich geneigt zu schreiben, eine vollständige Skript für Sie. Außerdem wollen Sie vbscript? oder sind Sie wollen die VBA (innerhalb einer XL-Anwendung)?
VbScript-ich will...Aber ich habe keine Ahnung, wie zu tun? Damit ich hier gepostet.Bitte helfen Sie mir.
Sie können die oXLAp.WorksheetFunction.CountA(). Ich kann Ihnen ein Beispiel geben, aber als Scott vorgeschlagen, es zu versuchen, und posten Sie dann wieder mit was hast du versucht und wo sind Sie stecken und wir werden es von dort nehmen 🙂
Haben Sie geschrieben in vbscript, um sich selbst gestartet?
Ich habe versucht diese,Aber es kann nur die Spalte Daten zählen. Ich habe keine Idee über der Reihe von Daten zählen.

InformationsquelleAutor CodeLover | 2012-12-13

  1. 1

    Versuchen, diese zum du zu erhalten begannen. Es wird sich zeigen, für jede Zeile die Anzahl der Spalten, die Daten, und für jede Spalte die Anzahl der Zeilen mit Daten. Sie können dann ändern Sie es zu einem mehr an Ihre Bedürfnisse anpassen:

    EDIT: - Code aktualisiert, um zu erfassen, erste Zeile /Spalte mit nur 1 Spalte /Zeile von Daten:

    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")
    Ich gerade geändert meine Beschreibung für Sie.Hoffe, es wird hilfreich sein für Sie.Aber nicht löschen Sie den code, den Sie geschrieben jetzt.
    Perfekt!! Vielen Dank für Ihre Hilfe! Ich weiß, Sie sind nur Menschen,können unstuck mir von überall.:-)
    Können Sie mir helfen in meinen post unten,wo ich eingefügt den code, den ich verwende,aber seine zu langsam. Und auch ich will diese beiden codes kombiniert werden in eine einzelne.Bitte helfen Sie mir es. Das ist ein Engpass für mich immer noch. stackoverflow.com/questions/13835758/...

    InformationsquelleAutor Scott Holtzman

Schreibe einen Kommentar