VBA代码根据单元格A中的值在任何列中运行子例程

我正在尝试使用Do Until来运行一列数据（可以是工作表中的任何列），并根据A列中的值执行某些任务。

A列结果是1,2或END！ 我想跑下任何一列，并根据A中的值执行例程，直到A =“END！？”中的值为止。

我不能使用偏移函数，因为Do Until直到每个月都会移动一列。

基本上我需要代码总是检查列A中的值，并根据值做三个函数之一，我的头脑已经完全空白了！

---

我已经有完整的Do Until代码编写，并且子例程运行取决于在那里。

我只是不能看看列A部分的价值！

Answer 1

使用Select Case ：

 Dim LastRow As Double Dim wS As Worksheet Dim i As Double Set wS = thisworkbook.Worksheets("Sheet1") ' Sheet Name With wS LastRow = .Range("A" & .rows.Count).End(xlup).Row For i = 2 To LastRow Select Case .Cells(i,1).Value Case Is = 1 Call SubProc1 Case Is = 2 Call SubProc2 Case Is = "END!?" Call SubProcEND Case Else MsgBox "Value : " & Criteria1 & " not handled!", _ vbCritical + vbOKOnly, "Case not handled" End Select Next i End With 'wS