'シートのデータを複数シートに反映 Private Sub 共通() Dim common_s As Worksheet Dim common_data As Variant Dim loop_colCnt As Integer Dim table_names As Object Dim loop_rowCnt As Integer Dim write_s As Worksheet Dim write_colData As Variant…

=MID(E7,LEN("系統コード=[")+1,FIND("].往復区分=[",E7,1)-LEN("系統コード=[")-1) =MID(E7,FIND("].往復区分=[",E7,1)+LEN("].往復区分=["),(FIND("].平日区分=[",E7,1)-(FIND("].往復区分=[",E7,1)+LEN("].往復区分=[")))) =MID(E7,FIND("].平日区分=[",E…