Excel マクロ-四半期を算出とその他

もっといい方法がありそうではありますが。。



Sub MonthandQuoter()
Dim LastRow As Long
LastRow = Range("C65536").End(xlUp).Row 'Cは要変更

For y = 2 To LastRow

If Cells(y, 4).Value <> "" Then '4は要変更
Cells(y, 2).Value = Format(Cells(y, 4), "mmm") '列Bに月を入力します　4は要変更
End If

Select Case
Cells(y, 2).Value '列Aに列Bの月を元に四半期を入力します
Case "Jan", "Feb", "Mar"
Cells(y, 1) = "Q1" Case "Apr", "May", "Jun"
Cells(y, 1) = "Q2" Case "Jul", "Aug", "Sep"
Cells(y, 1) = "Q3" Case "Oct", "Nov", "Dec"
Cells(y, 1) = "Q4" Case Else Cells(y, 1) = ""
End Select

If Cells(y, 5).Value = "" Then '5は要変更
Cells(y, 5).Value = Range("E2").Formula '5とE2は要変更
End If
Next
End Sub