Doï½Loopã¹ãã¼ãã¡ã³ããå¦çéä¸ã§æã次ã®ã¹ãã¼ãã¡ã³ãã«å¶å¾¡ã移ãã¾ãã以ä¸ã®ä¾ã§ã¯å¤æ°iã®å¤ã10ã«ãªã£ãã¨ãã«Doï½Loopãæãã¾ãã Sub ExitDo() Dim i As Integer i = 1 Worksheets("Sheet8").Activate Do Worksheets("Sheet8").Cells(i, 1) = i i = i + 1 If i = 10 Then Exit Do End If Loop End Sub
{{#tags}}- {{label}}
{{/tags}}