求问如何把数据不为空的项目统计到一个单元格

YAMI1129

如图所示，非常感谢！

lfspecter

请上传附件

mmlzh

看图写公式，WPS或EXCEL365
数组公式I2=TEXTJOIN(",",1,IF(A2:H2>0,A$1:H$1,""))

Yaong_3

自定义函数  =J(A2:H2)

1. Function J(Rng As Range)
   
2. For Each R In Rng
   
3. If Not IsEmpty(R) Then J = J & R & ","
   
4. Next
   
5. J = Left(J, Len(J) - 1)
   
6. End Function

复制代码

YAMI1129

lfspecter 发表于 2019-3-12 14:38
请上传附件

你好，已补上附件

YAMI1129

Yaong_3 发表于 2019-3-12 16:28
自定义函数  =J(A2:H2)

非常谢谢！不过这个执行后的结果是这样的，而我想要统计的是第一行的那些字母

Yaong_3

不好意思，没仔细看您的的要求，把第三句改一下就行了。

1. If Not IsEmpty(R) Then J = J & Cells(1, R.Column) & ","

复制代码

YAMI1129

Yaong_3 发表于 2019-3-13 11:32
不好意思，没仔细看您的的要求，把第三句改一下就行了。

非常感谢！！完美解决问题！！！

lfspecter

数组公式

1. =TEXTJOIN(",",,IF(A2:H2>0,$A$1:$H$1,""))

复制代码

YAMI1129

lfspecter 发表于 2019-3-13 14:23
数组公式

你好，感谢~但是输入了以后会报错呢