'End(xlDown)' acting weird
问题 I suspect that the .end(xlDown) is acting a bit weird. Dim rfound As Range Set rfound = Columns("B:B").Find(What:=Me.ComboBox1.Value, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) If ComboBox1.Value <> "" And WorksheetFunction.CountIf(Range("B:B"), _ ComboBox1.Value) > 0 And rfound.Offset(0, 1).Value <> "" Then rfound.Offset(0, 1).End(xlDown).Offset(1, 0).Value = TextBox1.Value Upon CommandButton1_click , the code will search in the column B for any matched criteria and