循环select范围内的每个单元格

我试图在Visual Studio中创build一个过程,用于循环未命名为Excel的范围。 例如,用户select“A1”和“A5”“A94”。 在我的程序中,我可以看到range.count prorperty作为值3,但是如果我做一个Do循环,我不能采取所选范围的第二个单元格值,但我find“A2”。 我的程序是这样的:

Dim counter As Integer = 1 Dim ActiveCell As Excel.Range Do ActiveCell = SelectedRange.Item(counter) ActiveCell.Select() MessageBox.Show(ActiveCell.Value2.ToString) counter = counter + 1 Loop While counter <= SelectedRange.Count SelectedRange.Select() 

下面是一个简单的例子,它将每个选中单元格的值设置为1:

 Sub EditSelection() Dim rng As Range For Each rng In Selection rng.Value = 1 Next rng End Sub 

让我知道如果你还在这之后挣扎