excelvba不能匹配自动补齐

如果在 Excel VBA 中无法启用自动补齐功能，可能是由于以下原因之一：

1. 自动补齐功能已被禁用：在 Excel 中，您可以通过选项卡中的“文件”->“选项”->“高级”->“编辑选项”->“启用自动完成单词”来启用它。如果这个选项被禁用了，那么在 VBA 编辑器中就无法启用自动补齐功能。

2. 语法错误：如果您的代码存在语法错误，那么在 VBA 编辑器中也无法启用自动补齐功能。请确保您的代码正确无误，并注释掉所有错误之前再次尝试启用自动补齐功能。

3. 引用库不正确：如果您在 VBA 编辑器中编写代码时需要使用某些对象或属性，但是没有正确引用相关库文件，那么就无法启用自动补齐功能。请确保您已正确地添加了所需的库引用或使用了必要的限定符。

4. 与其他插件冲突：一些第三方插件可能会与 Excel VBA 编辑器中的自动补齐功能产生冲突。如果您已经尝试过以上几种方法仍然无法解决问题，请考虑禁用其他已安装的插件，然后再尝试启用自动补齐功能。

希望这些信息能够帮助您解决问题。

按你描述的，应该是指两个工作表，而且b表数据是A1单元格开始吧？

用exit for或goto语句跳出循环就可以了，其实你想问的是这个，对吧？

Sub 条件引用()

Dim Arr, Br, MaxRo&, i&

MaxRo = Sheets("b").[A65536].End(3).Row

Arr = Sheets("b").Range("A1:B" &MaxRo)

ReDim Br(1 To UBound(Arr))

For i = 1 To UBound(Arr)

If Arr(i, 1) <>"" Then

Br(i) = Arr(i, 2)

Else

Exit For

'GoTo 100

End If

Next

'100:

Debug.Print Join(Br, " | ")

Sheets("a").Cells(1, 1).Resize(UBound(Br), 1) = Application.Transpose(Br)

Erase Arr, Br

End Sub

---