Public Type KEITO ride_serialNum As Integer getoff_serialNum As Integer unchinData As Integer End Type Public Type UNCHIN sheetName As String keito_data() As KEITO End Type Public unchinData() As UNCHIN Public Enum UnchinSheetColumn serial…