Sub seki()
'
' seki Macro
' マクロ記録日 : 2002/10/2  ユーザー名 : H.Miyamoto
'
'
Dim MEAS(100): Dim MM(4): Dim NN(4): Dim MD(2): Dim ND(2): L = 0: GCM = 1

Sheets("積商").Select

LA = 2: CO = 1: a = 1
GoSub yakubun

LA = 2: CO = 3: a = 2
GoSub yakubun

M = MM(1): N = NN(2)
GoSub measure
MD(1) = M / GCM: ND(1) = N / GCM

M = MM(2): N = NN(1)
GoSub measure
MD(2) = M / GCM: ND(2) = N / GCM

    Range("F2") = MD(1) * MD(2)
    Range("F3") = ND(1) * ND(2)

Sheets("積商").Select
    Range("A1") = "積を計算しました。　" + Str(Now()): Range("A1:F1").Select

Exit Sub

'~~~~~~~~ SUB ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
yakubun:

If Cells(LA, CO) > Cells(LA + 1, CO) Then
    M = Cells(LA + 1, CO): N = Cells(LA, CO)
        Else
    M = Cells(LA, CO): N = Cells(LA + 1, CO)
End If
    
GoSub measure
    MM(a) = Cells(LA, CO) / GCM
    NN(a) = Cells(LA + 1, CO) / GCM

Return

measure:

For K = 1 To M
    If (M Mod K) = 0 Then L = L + 1: MEAS(L) = K
Next

For K = 1 To L
    If (N Mod MEAS(K)) = 0 Then GCM = MEAS(K)
Next
Return

End Sub