0

我需要在单个列中找到数据点的数量，并将值放在 OpenOffice Calc 电子表格的给定单元格中。到目前为止，这是我的代码，如果有人能告诉我哪里出错或缺少什么，我将不胜感激。谢谢。

Const DATA_COL = 1 '数据的列号 Const DATA_ROW_START = 2 '数据的起始行

'此函数查找数据列DATA_COL中的数据点数'此函数的目的是确定A列中的数据点数'您需要使用常量DATA_ROW_START（= 2）和DATA_COL（= 1 ) '在这个函数中。具体来说，该函数使用第一个数据点位于 DATA_ROW_START 行 (= 2) 中且数据位于 DATA_COL 列 (= 1) 中的信息。

函数 FindNumberOfDataPoints() 只要

Dim DATA_COL as Double
Dim DATA_ROW_START as Double
Dim count as Double
Dim row as Integer

count = 0
row = DATA_ROW_START 

While ActiveSheet.Cells(DATA_ROW_START,DATA_COL)<>"" 
        row = row + 1
        count = count + 1

Wend

If ActiveSheet.Cells(DATA_ROW_START,DATA_COL)> 0 Then
    row = row + 1

End If


count = ActiveSheet.Cells(row,DATA_COL)

ActiveSheet.Range("C11") = count 'Place count value in cell C11

结束功能

4

1 回答 1

0

您可以轻松找到已使用的区域，例如，这会找到最后使用的行

Function getLastUsedRow(oSheet) as Integer
  Dim oCell
  Dim oCursor
  Dim oAddress
  oCell = oSheet.GetCellbyPosition( 0, 0 )
  oCursor = oSheet.createCursorByRange(oCell)
  oCursor.GotoEndOfUsedArea(True)
  oAddress = oCursor.RangeAddress
  GetLastUsedRow = oAddress.EndRow
End Function

您只需要查看列而不是行。

于 2016-09-13T17:25:23.603 回答