图7
这就是代码
Sub xx()
Dim rng As Worksheet, n%, i%
For Each rng In Worksheets
If rng.Name = Sheet1.Cells(1, 2) Then Exit For
Next rng
For n = 3 To 6
Dim h%
h = 0
For i = 2 To 5
If Sheet1.Cells(n, 1) = rng.Cells(i, 1) Then
rng.Range("b" & i & ":e" & i).Copy Sheet1.Range("b" & n)
Exit For
Else
h = h 1
If h = 4 Then Sheet1.Range("b" & n & ":e" & n) = "/"
End If
Next i
Next n
End Sub
虽然，我并不明白这个求助者发出的这个问题能解决他工作中的什么问题，但是我要感谢他，是这个问题让我开窍，让我对学习VBA更加有信心。
之后我学习了更多的Excel函数和VBA知识，现在我完成了当初的想法，只要是重复性的工作，我就用VBA解决，把用在这方面的工作压缩到最低，原本几个小时的事情，真的可以压缩到几十秒。我把更多的时间用在一些“主观性”的事情上，不但工作轻松，效率还高，还有更多的时间去学习新的知识来更加完善自己的工作。
磨刀不误砍柴工，学习虽然要花时间，但是学到了就是一劳永逸。以前有句话说的是活到老学到老，可是现在在职场中的现状是学到老才能活到老，让我们成为一个终身学习者吧。
