如何利用VBA 选择指定的单元格？

Dim i As Integer

For i = 1 To Sheet1.UsedRange.Rows.Count Step 1

If Cells(i, 1).Value = "否" Then

Range("a" &i).Select

Exit For

End If

Next i

我用的是A列做列子 具体那一列你把它换了就行

如何选择当前工作表中的单元格？

例如，可以使用下面的代码选择当前工作表中的单元格D5：

ActiveSheet.Cells(5, 4).Select

或：ActiveSheet.Range("D5").Select

如何选择同一工作簿中其它工作表上的单元格？

例如，要选择同一工作簿中另一工作表上的单元格E6，可以使用下面的代码：

Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)

或：Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))

也可以先激活该工作表，然后再选择：

Sheets("Sheet2").Activate

ActiveSheet.Cells(6, 5).Select

如何选择不同工作簿中的单元格？

例如，要选择另一工作簿中的一个工作表上的单元格F7，可以使用下面的代码：

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)

或：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")

在VBA中选择单元格使用range.select

Range支持不连续的多区域，表示方式为，Range（区域A1地址，区域B地址,……）

例如：A列中的A2：A3和C列中的C3:C9,是不连续的两列

那么同时选择两部分，则可以表示为Range("A2：A3,C3:C9")

VBA代码中具体使用如下：

sub Main

dim rng as range

'区域赋给rng

set rng=Range("A2：A3,C3:C9")

'区域选择

rng.select

end sub

---