excel vba – 在列中find一个单元格的值，并logging相应行的另一列中的文本

我喜欢excel，可以编写非常基本的macros，但是想做一些更复杂的事情，这样可以让我的学生非常高效地获取信息。

想象下面的数据是一本成绩簿。 列A是作业分配的列表，然后每个下一列是每个作业的学生的成绩。

| A | B --------------------- 1. | student: | Nick 2. | HW2 --- | 0 3. | HW3 --- | 0 4. | HW4 --- | 3 5. | HW5 --- | 0 

我希望能够select一个学生的名字，然后点击一个button，logging列A中的任务列表，这个列表对应于学生名字下面有一个“0”的任何行…目标是那个这份工作清单可以放在电子邮件的正文中。 我写了一个函数，会导致一个电子邮件出现，但我不能找出一个函数的代码，将收集我可以放在该电子邮件的正文中的硬件“0”的数据。

我感谢任何帮助。 谢谢！

Answer 1

尝试类似的东西：

 Sub Grade_0() Name = ActiveCell Set Sheet = ActiveCell.Worksheet List = "" With Sheet colOffset = ActiveCell.Column - 1 For Each cell In .Range(.Range("A2"), .Range("A2").End(xlDown)) If cell.Offset(0, colOffset) = 0 Then List = List + cell + " " End If Next End With MsgBox List End Sub 

这只是一个演示，以find任务。 你必须如何排队并以正确的方式返回。