For loop Range++ ­n«ç»ò°µ¡H

eigen

For loop Range++ ­n«ç»ò°µ¡H

½Ð°ª¤â«ü±Ï¡A§Ú­nÅý¿ï¾Üªº°Ï°ì¡A¨Ì§ÇÅã¥Ü¥X 2 4 6 8 ©Î 3 6 9 12..

§Ú¤£ª¾¹D e=e+1 ­n¦p¦ó¹ê§@¡A½Ð«ü±Ð¡A

Sub Print_Sort_Page()
        Dim E As Range

        If Sheets("Sheet1") Is ActiveSheet Then                                                '½T©w¦b¾ã²zªº­¶­±¤§¤¤
                For Each E In Selection.EntireRow

                        E= E+1 'Åý©Ò¿ï¾Üªº¦æ¡A¤@¦¸¸õ¨â¦æ
                        MsgBox "test row() number="& E.Range("b1").row()
                Next
        End If
End Sub

eigen

¦^´_ 2# GBKEE


    ÁÂÁ§Aªº¦^´_¡A§Ú¨Ó§Ú§ï¥Î
        Set Rng        = Selection.EntireRow
        RngStart = rng.Cells(1,        1).row()                                                        '¨ú±o·Ç³Æ¦C¦Lªº½d³ò
        RngCnt = rng.Rows.Count
        RngEnd=        RngStart+RngCnt-1

¦A¥Î ¾ã¼Æ for loop ¨Ó³B²z¡A°ÝÃD¤w¸g¸Ñ¨M¤F¡AÁÂÁÀ¢Ï