外見 なお年齢欄はすべて =ABS(ROW()-COLUMN())+1 です。 VBAコードを除いた雛形はこちらからどうぞ。 和暦年齢.xlsx - Google ドライブ コード Private Sub Commandbutton1_Click() Dim Row As Long, column As Long Dim 出生年 As String, 当該年 As String, 数え年 As Variant 出生年 = Range("I2").Value 当該年 = Range("I3").Value On Error Resume Next Row = WorksheetFunction.…