excel - Excel 中的条件连接

Question

如图所示，有一些 1 和 0 重新排列成 3 行，每列有一个英文字母。我需要做的是当相应的列值为 0 时，连接每行的英文字母。我该怎么做？

Answer 1

这是一个可以处理任意数量列的 VBA 解决方案(假设与每列关联的字母是标准列标签):

Function ZeroColumns(R As Range) As String
    Dim n As Long
    Dim count As Long
    Dim cols As Variant
    Dim cell As Range

    n = R.Cells.count
    ReDim cols(1 To n)
    For Each cell In R.Cells
        If cell.Value = 0 Then
            count = count + 1
            cols(count) = Split(cell.Address, "$")(1)
        End If
    Next cell
    ReDim Preserve cols(1 To count)
    ZeroColumns = Join(cols, "")
End Function

如果所陈述的假设不成立，那么调整代码应该不会太难。