在矩阵中查找随机零的位置

Question 1

上面/下面概述的宏似乎是最简单的方法。如果您不能使用宏，那么这里有一个繁琐的方法。

此处，G 列至 K 列代表 A 列至 E 列中值为 0 的单元格。

G2细胞公式：

    =IF(A2=0,ADDRESS(ROW(),COLUMN()-6),"")

将其拖到横向和纵向。接下来，旋转数据（使用非传统的旋转方法），单击任意绿色列。然后按 ALT-D 再按 P。这将打开“旋转向导”。

选择“多个合并范围”，然后单击“下一步”。

然后点击“为我创建单页字段”并按“下一步”。对于您的数据范围，请在绿色列左侧添加一个空白列。在本例中，范围是 F1:k6。点击“下一步”。

最后，选择要放置此数据透视表的位置，例如单元格 M3。将“值”字段放在“行”区域中。

最后一步，创建一个公式来从数据透视区域中选择一个随机值。单元格 P1 公式：

    =INDEX($M$5:$M$11,RANDBETWEEN(1,COUNTA($M$5:$M$11)),1)

由于这是一个随机公式，因此它会在工作表中每次单击时发生变化。是的，这是一项繁琐的任务，如果您有很多列，情况会更糟。

注意：除了使用数据透视表，您还可以使用公式从绿色列中提取唯一值，但如果列很多，公式可能会很长。只需查找从多列中提取不同值即可。

Answer

上面/下面概述的宏似乎是最简单的方法。如果您不能使用宏，那么这里有一个繁琐的方法。

此处，G 列至 K 列代表 A 列至 E 列中值为 0 的单元格。

G2细胞公式：

    =IF(A2=0,ADDRESS(ROW(),COLUMN()-6),"")

将其拖到横向和纵向。接下来，旋转数据（使用非传统的旋转方法），单击任意绿色列。然后按 ALT-D 再按 P。这将打开“旋转向导”。

选择“多个合并范围”，然后单击“下一步”。

然后点击“为我创建单页字段”并按“下一步”。对于您的数据范围，请在绿色列左侧添加一个空白列。在本例中，范围是 F1:k6。点击“下一步”。

最后，选择要放置此数据透视表的位置，例如单元格 M3。将“值”字段放在“行”区域中。

最后一步，创建一个公式来从数据透视区域中选择一个随机值。单元格 P1 公式：

    =INDEX($M$5:$M$11,RANDBETWEEN(1,COUNTA($M$5:$M$11)),1)

由于这是一个随机公式，因此它会在工作表中每次单击时发生变化。是的，这是一项繁琐的任务，如果您有很多列，情况会更糟。

注意：除了使用数据透视表，您还可以使用公式从绿色列中提取唯一值，但如果列很多，公式可能会很长。只需查找从多列中提取不同值即可。

Question 2

尝试以下用户定义函数：

Public Function RanZero(rng As Range)
    Application.Volatile
    Dim r As Range, temp As String
    Dim arr, N As Long
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    
    For Each r In rng
        If r.Value = 0 Then
            temp = temp & "," & r.Address(0, 0)
        End If
    Next r
    
    temp = Mid(temp, 2)
    arr = Split(temp, ",")
    N = wf.RandBetween(LBound(arr), UBound(arr))
    RanZero = arr(N)
End Function

它收集全部矩阵中的单元格具有零值并返回一个随机样本。

用户定义函数 (UDF) 非常容易安装并使用：

ALT-F11 打开 VBE 窗口
ALT-I ALT-M 打开新模块
粘贴内容并关闭 VBE 窗口

如果您保存工作簿，UDF 将随之保存。如果您使用的是 2003 之后的 Excel 版本，则必须将文件保存为 .xlsm 而不是 .xlsx

到消除UDF：

调出如上所示的 VBE 窗口
清除代码
关闭 VBE 窗口

到使用Excel 中的 UDF：

=我的函数（A1）

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

有关 UDF 的详细信息，请参阅：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

必须启用宏才能使其工作！

Answer