在线求一个代码。祝各位老师身体健康！

hdj8

想把学生每科有成绩的提取出来到一个单元格里，没成绩的科目不用提取。如图：


先谢谢各位老师，祝身体健康，百毒不侵。

liangmutou01

结果放在表2 中，当然也可以就放在本表中，将红色也就是  Sheets.  删除即可。
Sub tq()
  ar = Range("a1").CurrentRegion.Value
  zc = UBound(ar, 2)
  For h = 2 To UBound(ar)
    For c = 5 To zc - 1
      If ar(h, c) <> "" Then ar(h, zc) = ar(h, zc) & Split(ar(1, c), "/")(1) & ":" & ar(h, c) & Chr(10)
    Next c
  Next h
  Sheet2.Range("a1").Resize(UBound(ar), zc) = ar
End Sub

excel海

我居然没看懂想干什么

chjn2468

liangmutou01 发表于 2020-2-5 20:48
结果放在表2 中，当然也可以就放在本表中，将红色也就是  Sheets.  删除即可。
Sub tq()
  ar = Range("a ...

高手，简洁清晰，学习了！