OpenOffice Calc合并单元格属性

时间:2018-08-18 23:19:08

标签: vba openoffice-calc

我已经在网上搜索了好几个小时,却找不到答案。我可以确定给定的单元格已合并,但我需要知道合并的单元格中包含多少行。

Function aac_MergeRowCount(intStartCol as Integer, intStartRow as Integer)
oSheet = ThisComponent.CurrentController.ActiveSheet
oCell = oSheet.GetCellByPosition(intStartCol, intStartRow)
strData = oCell.GetString()

If oCell.IsMerged Then
    strCopy = strData
    strWasMerged = True
    iCount = oCell.GetNumberOfRows()
End If

aac_MergeRowCount = iCount
End Function

1 个答案:

答案 0 :(得分:0)

原来,我只需要放弃OpenOffice并使用Excel。我需要的命令是:

strData = oSheet.Cells(r,c).MergeArea.Rows.Count

在OpenOffice中不起作用