在用户input特定的前缀后查找下一个空行

我在列A中有一定数量的标签号码。这些标签号码的前缀不同，例如“35C-1243”或“35TC-1234”。 每个前缀都带有大量的标签号码，但在标签号码之间有一些空行，用于跳过标签，例如可以从“35C-1234”到“35C-1235”到“35C-1237”。 这意味着我在“35C-1235”和“35C-1237”之间有一个空行。 我一直在试图做的是创build一个代码，提示用户input他们想要关注的标签号码的前缀，并根据该前缀下一个空白行应该被选中，但我不能让Excel激活空行。 任何build议/帮助将不胜感激。

Private Sub Worksheet_Activate() Dim msg As String Dim result As Integer Dim x As String msg = "Would you like to find the next available tag number?" result = MsgBox(msg, vbYesNo) If result = vbYes Then x = Application.InputBox("Enter the part reference ") Select Case x Case x = "35C" NextFree = Range("A:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row Range("A" & NextFree).Select End Select Else Cancel = True End If End Sub 

Answer 1

问题在于你的Select Case 。 它应该是Case "35C"而不是Case x = "35C" 。 你现在所做的是比较x到x = "35C"的结果，这是True ，但x不等于True ，所以这种情况是False 🙂

另外@FreeMan关于Range("A:A" & Rows.Count) Rows.Count）所说的应该是Range("A:A") 。