如何将D列的物品数量大于0的东西重新用1、2、3、4来排序(即数量为0的不计)，数据只...

czar8

1、三文鱼：4     2、牛排：2     3、牛奶：12     4、葡萄：10
			三文鱼	4
			牛排	2
			鸡蛋	0
			牛奶	12
			苹果	0
			葡萄	10

如何将D列的物品数量大于0的东西重新用1、2、3、4来排序(即数量为0的不计)，数据只用一个单元格，不是一行一个单元格。

czar8

有这么难吗

czar8

谁能帮帮我呀………………

czar8

谁能帮帮我呀………………

czar8

救命啊…………

sucx007

1. =TEXTJOIN(CHAR(10),1,IF(E7:E12>0,D7:D12&":"&E7:E12,""))

复制代码

czar8

sucx007 发表于 2018-3-24 15:15

前面还要有序号

czar8

sucx007 发表于 2018-3-24 15:15

另外，能不在数组公式上实现吗，因为我要用到合并的单元格

sobili

czar8 发表于 2018-3-24 17:58
另外，能不在数组公式上实现吗，因为我要用到合并的单元格

这样的可以吗？
1.rar (15.71 KB, 下载次数: 3)

2018-3-24 18:57 上传

点击文件名下载附件

sucx007

1. Function hebing$(rg As Range)
   
2.     Dim ar, i%, str$, n%
   
3.     ar = rg
   
4.     For i = 1 To UBound(ar)
   
5.         If ar(i, 2) > 0 Then
   
6.             n = n + 1
   
7.             str = str & Chr(10) & n & "." & ar(i, 1) & ":" & ar(i, 2)
   
8.         End If
   
9.     Next
   
10.     hebing = Mid(str, 2)
    
11. End Function

复制代码

用自定义函数吧！