質問: エクセル VBAの質問です。 B列の「契約年月」の項目から年と月を抽出したいのですが、
回答: Sub 未実行です() Dim rng As Range For Each rng In Range("B2", Cells(Rows.Count, 2).End(xlUp)) With rng If Len(.Text) = 5 Then .Offset(, 1).Value = Val(.Value) Else .Offset(, 1).Value = Year(.Value) .Offset(, 2).Value = Month(.Value) End If .Offset(, 3).Value = .Offset(, -1).Value - .Offset(, 1).Value End With Next rng End Sub