在数组上使用CELL来返回由单元格types组成的string

可以说，我们有5000行随机值（空白，数字，字符）。 我需要使用公式在单个单元格中显示5000行中的所有单元格的types。 这实际上可能吗？ 我尝试了CONCATENATE（CELL（“type”; array））和ctrl + shift + enter，但是它不起作用（它返回数组中第一个单元格的types）。 如果你想知道，这是为了在一个非常大的文件中find一个文本而不是值或空格的单元格。 也许你有更好的解决scheme。 提前致谢。

UPD：感谢macros，但我不能在这个工作簿中使用它们，我需要一个公式解决scheme。

UPD：我有条件格式=>新规则=>使用公式来确定… =>使用ISTEXT（'范围的第一个单元格'）公式

但是，仍然可以创build公式吗？

Answer 1

最好的办法是使用MACRO

这是我的示例代码：

Sub Button2_Click() numRows = 10 ' Number fo rows to loop through, in your case 5000 'loop through each cell located in column 1 'Check its type 'Concatenate each one in 1 cell on the 8th column For i = 1 To numRows Sheet1.Cells(1, 8).Value = Sheet1.Cells(1, 8).Value & TypeName(Sheet1.Cells(i, 1).Value) & "," Next i End Sub 

Answer 2

您可以根据您的需要调整这个小用户定义的function。

假设我们正在查看第一行中的单元格，从A1到D1 ，我们想要将它们的types连接成一个单元格。 在标准模块中input以下UDF（） ：

 Public Function KonKaType(rIN As Range) As String Dim r As Range For Each r In rIN s = "cell(""type""," & r.Address(0, 0) & ")" KonKaType = KonKaType & Evaluate(s) Next r End Function 

然后在工作表单元格E1中input：

 =KonKaType(A1:D1)