vba - 'End(xlDown)' 表现得很奇怪

Question

我怀疑 .end(xlDown) Action 有点怪。

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

根据 CommandButton1_click ，代码将在 B 列中搜索任何匹配的条件，然后搜索 OffSet只要我的条件都满足，就到右边的牢房。但是，它提示我一条消息 Run-time error '1004': Application defined or object-defined error .

我不知道问题出在哪里。举例说明:

Answer 1

您当前的代码

大概找到B2如rfound (注意:最好用 `If Not rfound Is Nothing Then 来测试 rfound 是否存在于 Find 之后)

然后C2是 rfound.Offset(0, 1)

rfound.Offset(0, 1).End(xlDown)找到 C 列中的最后一个单元格，因为所有其他单元格都是空白的

rfound.Offset(0, 1).End(xlDown).Offset(1, 0)尝试在最后一行下方的单元格中输入一个值 - 不能。

而是从底部向上看，即而不是
Then rfound.Offset(0, 1).End(xlDown).Offset(1, 0).Value = TextBox1.Value利用 Then Cells(Rows.Count, rfound.Offset(0, 1).Column).End(xlUp).Offset(1, 0) = TextBox1.Value