VBA中如何根據選定區域？

在表里面新建一個按鈕,名稱為:CommandButton1,雙擊后輸入如下代碼,退出VBE和設計模式即可:Private Sub CommandButton1_Click() With Selection irow = .Item(1).Row '取得選定區域第一行的行號 end1 = .Item(.Count).Row ' '取得選定區域最后一行的行號 If irow <= 1 Then Exit Sub '如果第一行的行號小于=1,那么退出程序 For i = irow To end1 '循環第一行到最后一行行 Cells(i, 5) = Cells(irow-1, 5) + 5 '選中區域對應的E列的第一個單元格的值=上一個單元格的值+5,即選中A8:A12,那么就是E8:E12 的值=E7+5 Next End WithEnd Sub