汇总符合要求的单元格并合并

qgx225 · 发表于 2011-3-17 16:08

我有一份成绩单，里面有部分人的成绩不合格，我想把这些不及格的科目批量合并在一个单元格内，中间可以用逗号或者是空格等隔开。

看了一些函数公式，但是没找到对应的东西，请教各位大侠！

详细的见附件。

[ 本帖最后由 qgx225 于 2011-3-19 21:18 编辑 ]

飘在一方 · 发表于 2011-3-17 16:28

用&连接，例如=B3&","&C3，需要用到条件函数求出小于60的分数，再用&连接。所学函数有限，等待解答

jetli · 发表于 2011-3-17 16:31

=IF(B2<60,$B$1&",","")&IF(C2<60,$C$1&",","")&IF(D2<60,$D$1&",","")&IF(E2<60,$E$1&",","")&IF(F2<60,$F$1&",","")&IF(G2<60,$G$1&",","")&IF(H2<60,$H$1&",","")&IF(I2<60,$I$1&",","")以上面的为例，自己把后面的加上就可以了

[ 本帖最后由 jetli 于 2011-3-17 16:33 编辑 ]

qgx225 · 发表于 2011-3-17 16:32

用&连接我也知道，不过几十门科目慢慢连也挺麻烦的，用CONCATENATE函数更好一些吧！

飘在一方 · 发表于 2011-3-17 16:38

怎么用函数求出所有<60的呢？怎么用函数求出各科不及格的呢？

eqzh · 发表于 2011-3-17 16:45

请按一下附件中的按钮，具体代码如下：
Sub hb()
Dim a%, b%, i%, x$
a = Sheet1.Range("a65536").End(xlUp).Row
For b = 2 To a
x = ""
For i = 2 To 9
If Cells(b, i) < 60 Then
x = x + " " + Cells(1, i)
End If
Next
Cells(b, 10) = x
Next
End Sub

飘在一方 · 发表于 2011-3-17 16:51

用普通函数怎么做？谢谢

qgx225 · 发表于 2011-3-18 11:56

谢谢！不愧是高手，VBA果然很牛啊！

likun1005 · 发表于 2011-3-18 14:08

呵呵，需要用到VBA，看来还要学习VBA啵

		自动登录	找回密码
密码			免费注册

[已解决] 汇总符合要求的单元格并合并

回复 2楼飘在一方的帖子

回复 6楼 eqzh 的帖子

[已解决] 汇总符合要求的单元格并合并

回复 2楼 飘在一方 的帖子

回复 6楼 eqzh 的帖子

回复 2楼飘在一方的帖子