テスト2

Sub コンビニ作成()
    Dim コード As Integer
    Dim 生徒_姓 As String
    Dim 生徒_名 As String
    Dim 合計 As Currency
    Dim 月謝一覧 As Worksheet
    Dim 現金 As Worksheet
    Dim 行番号 As Integer
    Set 月謝一覧 = ThisWorkbook.Worksheets("月謝")
    Set 現金 = ThisWorkbook.Worksheets("コンビニ")
    行番号 = 2
    
    Do Until 月謝一覧.Cells(行番号, 1).Value = ""
        If 月謝一覧.Cells(行番号, 5).Value = 1 Then
            コード = 月謝一覧.Cells(行番号, 1).Value
            生徒_姓 = 月謝一覧.Cells(行番号, 3).Value
            生徒_名 = 月謝一覧.Cells(行番号, 4).Value
            合計 = 月謝一覧.Cells(行番号, 41).Value
            現金.Cells(行番号, 1).Value = コード
            現金.Cells(行番号, 2).Value = 生徒_姓 + 生徒_名
            現金.Cells(行番号, 6).Value = 合計
        End If
    Loop
    
End Sub