在范围顶部选择一个单元格

Question

我现在的范围是A2：A10 但是我需要选择A1，该怎么办？

谢谢！

编辑： 抱歉，我应该更具体。它是循环的一部分，因此范围是动态的。 以下代码解决了我的问题。我需要它来处理所有列，而不仅仅是A2：A10。

Sub test2()
    Dim myRange As Range, desiredRange As Range
    Set myRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:A10")
    Set desiredRange = myRange.Resize(1, 1).Offset(-1)
    desiredRange.Select
End Sub

Answer 1

设置范围，然后在范围内循环选择第一个项目：

  Dim Cell As Range, ws As Worksheet

  Set ws = ActiveSheet

  For Each Cell In ws.Range("A2:A10")
      Cell.Select
      exit for
  Next Cell

Answer 2

您的代码中没有显示循环。如果您使用单列重复设置变量myRange，则只需使用

myRange.Cells(1,1) 

引用第一个单元格