Sub henkan()
    For i = 1 To 7000
        For j = 1 To 3
            x = Cells(i + 3, j + 3)
            a1 = Asc(Mid$(x, Len(x), 1)) - 87
            If a1 < 0 Then a1 = a1 + 39
            a2 = Asc(Mid$(x, Len(x) - 1, 1)) - 87
            If a2 < 0 Then a2 = a2 + 39
            If a2 > 15 Then a2 = 0
            a = a2 * 16 + a1
            Cells(i + 3, j + 6) = a
        Next
        Cells(i + 3, 10) = Int(Cells(i + 3, 7) / 64) + Int(Cells(i + 3, 8) / 32) * 4 + Int(Cells(i + 3, 9) / 32) * 32
    Next
End Sub
Sub tensou()
    x = 3
    Open "\miya.txt" For Output As #1
    For j = 1 To 100
    Print #1, Chr$(13)
    Print #1, "miya_"; Format(Str$(j), "0#:"); "  .db   ";
        For i = 1 To 70
        x = x + 1
        Print #1, Cells(x, 10);
        If i <> 70 Then Print #1, ",";
        Next
    Next
    Close #1
End Sub