­ã´£³¡ªL

Sub TEST()
Dim xArea As Range, xRow As Range, M1%, M2%
Set xArea = [C2:L13]
M1 = Month(Date)
For Each xRow In xArea.Rows
¡@¡@M2 = Val(xRow.Cells(1, 0))
¡@¡@If M1 - M2 = 1 Then
¡@¡@¡@¡@If xRow(2).HasFormula Then Exit Sub
¡@¡@¡@¡@If xRow.HasFormula Then
¡@¡@¡@¡@¡@¡@xRow.Copy xRow(2)
¡@¡@¡@¡@Else
¡@¡@¡@¡@¡@¡@MsgBox xRow.Cells(1, 0) & "µL¤½¦¡©Î¤½¦¡¤£»ô¥þ!! ": Exit Sub¡@'¦P¤@¦CÀx¦s®æ³£¦³¤½¦¡¤~·|½Æ»s¡@
¡@¡@¡@¡@End If
¡@¡@End If
¡@¡@If M2 < M1 Then xRow = xRow.Value
Next
End Sub