是如图的意思吗？
Sub aa() Dim rng As Range Set rng = ActiveSheet.Cells.Find(Month(Now) & "月") [a1] = rng.offset(0,1) End Sub
没看懂，上个图，或是具体描述吧。
