Excel VBA 質問スレ Part68

[790 デフォルトの名無しさん (ﾜｯﾁｮｲ 1dce-mYn1) 2020/11/12(木) 02:56:54.96 ID:D//YL0tK0]

Option Explicit
Sub a1tob1toc1nosaidaikouyakusuuwoe1ni()
　　Dim i As Integer
　　For i = 1 To 32766
　　　　Range("E1").Value = Application.WorksheetFunction.Gcd(Range("A1"), Range("b1"), Range("c1"))
　　Next
End Sub