For loop Range++ 要怎麼做？

eigen

For loop Range++ 要怎麼做？

請高手指救，我要讓選擇的區域，依序顯示出 2 4 6 8 或 3 6 9 12..

我不知道 e=e+1 要如何實作，請指教，

Sub Print_Sort_Page()
        Dim E As Range

        If Sheets("Sheet1") Is ActiveSheet Then                                                '確定在整理的頁面之中
                For Each E In Selection.EntireRow

                        E= E+1 '讓所選擇的行，一次跳兩行
                        MsgBox "test row() number="& E.Range("b1").row()
                Next
        End If
End Sub

GBKEE

回復 1# eigen
試試,是否為如此

1. Option Explicit
   
2. Sub Print_Sort_Page()
   
3.     Dim E As Range, i As Integer
   
4.     If ActiveSheet.Name = "Sheet1" Then                                              '確定在整理的頁面之中
   
5.         'For Each E In Selection.EntireRow  '->Each 是要處裡(每一個)
   
6.         Set E = Selection                'E.Rows.Count->範圍ROW的總數
   
7.         For i = E.Cells(1).Row To E.Cells(E.Rows.Count, 1).Row Step 2 '讓所選擇的行，一次跳兩行
   
8.             ' E = E + 1 '讓所選擇的行，一次跳兩行
   
9.             MsgBox "test row() number=" & E.Cells(i, 1).Row()
   
10.         Next
    
11.         End If
    
12. End Sub

複製代碼

eigen

回復 2# GBKEE


    謝謝你的回復，我來我改用
        Set Rng        = Selection.EntireRow
        RngStart = rng.Cells(1,        1).row()                                                        '取得準備列印的範圍
        RngCnt = rng.Rows.Count
        RngEnd=        RngStart+RngCnt-1

再用 整數 for loop 來處理，問題已經解決了，謝謊Ａ