Do
        CurrentG = Range("G" & GetLine).Value
        G_Cnt = G_Cnt + 1
        GetLine = GetLine + 1
Loop While Range("G" & GetLine).Value = CurrentG

Do While GetLine <= Lmax
    Windows(A_name).Activate
    Sheets("純新規").Select

    担当 = CurrentG
    Call データ書出(2, 担当, G_Cnt)
    G_Cnt = 0
Loop

For I = 2 To Lmax step +/-増分
　
Next I

Select Case 種類
      Case "A", "B", "C"
      Case Else
End Select

Select Case 工事開始日
    Case Is > WB期間開始
    Case Is = WB期間開始
    Case Else
End Select

Select Case 値
        Case 80 To 100
        Case 70 To 79
        Case 60 To 69
        Case  0 To 59
        Case Else
            MsgBox "エラー"    
End Select