在另一个中使用aformula的输出

时间:2017-01-17 09:12:29

标签: excel excel-vba vba

有人在这里发布了这个公式作为qustion的答案如何使用公式来知道有多少单元用于创建合并单元格:

Public Function MergeSize(r As Range) As Long
    MergeSize = r(1).MergeArea.Cells.Count
End Function

该公式效果很好,我想将其输出用于If>> Then论点。

例如,如果输出小于10,则乘以70.如果大于10,则将其乘以65,依此类推。

1 个答案:

答案 0 :(得分:0)

请参阅已编辑的答案,以便将功能用作 UDF

Public Function MergeSize(r As Range) As Long

MergeSize = r(1).MergeArea.Cells.Count

If MergeSize <= 10 Then
    MergeSize = MergeSize * 70
Else
    MergeSize = MergeSize * 65
End If

End Function

如何在Excel工作表中应用它:

(在此示例中,由于&#34; B2&#34;由8个合并的单元格组成,因此乘以8 * 70 = 560。)

enter image description here