查找特定值并返回 Excel 中的列 headers
Finding a specific value and returning column headers in Excel
如果该行包含 "No data",我想找到所有 headers。数据样本如下:
在F2中,我想获得"England, India"。 F3 应该是 "France, Germany, US, India".
我如何在 Excel 2013 年做到这一点?谢谢
一个"simple"的解决方案使用"IF"函数就可以解决。在 F2 中插入以下公式并将公式向下拖动到所需的所有行:
=if(A2<>"";if(isnumber(A2);"";$A&", ");"")&if(B2<>"";if(isnumber(B2);"";$B&", ");"")&if(C2<>"";if(isnumber(C2);"";$C&", ");"")&if(D2<>"";if(isnumber(D2);"";$D&", ");"")&if(E2<>"";if(isnumber(E2);"";$E&", ");"")
纯文本,如果复制起来更方便:
=if(A2<>"";if(isnumber(A2);"";$A$1&", ");"")&if(B2<>"";if(isnumber(B2);"";$ B$1&", ");"")&if(C2<>"";if(isnumber(C2);"";$C$1&", ");"")&if(D2<>"";if (isnumber(D2);"";$D$1&", ");"")&if(E2<>"";if(isnumber(E2);"";$E$1&", ");"" )
请注意,我已经使用 "isnumber" 来识别是否没有数据。这意味着您插入的所有数据都必须是数字,公式才能起作用。
如果在某个时间点,您需要扩展公式,您可以将其添加到当前公式的末尾,将粗体 X 替换为手头的列字母(从第 2 行添加并向下拖动):
&if(X2<>"";if(isnumber(X2);"";$X$1&", ");"")
如果您有 Office 365 Excel 则使用此数组公式:
=TEXTJOIN(",",TRUE,IF(A2:E2="No data",$A:$E,""))
作为一个数组,退出编辑模式时需要使用Ctrl-Shift-Enter而不是Enter来确认。如果操作正确,那么 Excel 将在公式周围放置 {}
。
如果您没有 Office 365 Excel,则将此代码放入工作簿附带的模块中:
Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
Dim d As Long
Dim c As Long
Dim arr2()
Dim t As Long, y As Long
t = -1
y = -1
If TypeName(arr) = "Range" Then
arr2 = arr.Value
Else
arr2 = arr
End If
On Error Resume Next
t = UBound(arr2, 2)
y = UBound(arr2, 1)
On Error GoTo 0
If t >= 0 And y >= 0 Then
For c = LBound(arr2, 1) To UBound(arr2, 1)
For d = LBound(arr2, 1) To UBound(arr2, 2)
If arr2(c, d) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
End If
Next d
Next c
Else
For c = LBound(arr2) To UBound(arr2)
If arr2(c) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c) & delim
End If
Next c
End If
TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function
然后使用如上所述的 TEXTJOIN() 公式。
如果该行包含 "No data",我想找到所有 headers。数据样本如下:
在F2中,我想获得"England, India"。 F3 应该是 "France, Germany, US, India".
我如何在 Excel 2013 年做到这一点?谢谢
一个"simple"的解决方案使用"IF"函数就可以解决。在 F2 中插入以下公式并将公式向下拖动到所需的所有行:
=if(A2<>"";if(isnumber(A2);"";$A&", ");"")&if(B2<>"";if(isnumber(B2);"";$B&", ");"")&if(C2<>"";if(isnumber(C2);"";$C&", ");"")&if(D2<>"";if(isnumber(D2);"";$D&", ");"")&if(E2<>"";if(isnumber(E2);"";$E&", ");"")
纯文本,如果复制起来更方便:
=if(A2<>"";if(isnumber(A2);"";$A$1&", ");"")&if(B2<>"";if(isnumber(B2);"";$ B$1&", ");"")&if(C2<>"";if(isnumber(C2);"";$C$1&", ");"")&if(D2<>"";if (isnumber(D2);"";$D$1&", ");"")&if(E2<>"";if(isnumber(E2);"";$E$1&", ");"" )
请注意,我已经使用 "isnumber" 来识别是否没有数据。这意味着您插入的所有数据都必须是数字,公式才能起作用。
如果在某个时间点,您需要扩展公式,您可以将其添加到当前公式的末尾,将粗体 X 替换为手头的列字母(从第 2 行添加并向下拖动):
&if(X2<>"";if(isnumber(X2);"";$X$1&", ");"")
如果您有 Office 365 Excel 则使用此数组公式:
=TEXTJOIN(",",TRUE,IF(A2:E2="No data",$A:$E,""))
作为一个数组,退出编辑模式时需要使用Ctrl-Shift-Enter而不是Enter来确认。如果操作正确,那么 Excel 将在公式周围放置 {}
。
如果您没有 Office 365 Excel,则将此代码放入工作簿附带的模块中:
Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
Dim d As Long
Dim c As Long
Dim arr2()
Dim t As Long, y As Long
t = -1
y = -1
If TypeName(arr) = "Range" Then
arr2 = arr.Value
Else
arr2 = arr
End If
On Error Resume Next
t = UBound(arr2, 2)
y = UBound(arr2, 1)
On Error GoTo 0
If t >= 0 And y >= 0 Then
For c = LBound(arr2, 1) To UBound(arr2, 1)
For d = LBound(arr2, 1) To UBound(arr2, 2)
If arr2(c, d) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
End If
Next d
Next c
Else
For c = LBound(arr2) To UBound(arr2)
If arr2(c) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c) & delim
End If
Next c
End If
TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function
然后使用如上所述的 TEXTJOIN() 公式。