VBA菜鸟 求大神指点 关于包含关键字的行数据提取问题

定一居士

求教各问大神：数据如下：

公司	手续费	经办人
中国瑞银基金	543	赵
日本兴业央行	46	钱
韩国光大大学	8	孙
加拿大瑞银银行	7	李
乌拉圭兴业基金	8	周
巴西光大证券	8	吴
韩国瑞银餐厅	11	郑
美国兴业大厦	354	王
南非光大大学	6	张

希望以“”“光大”这种为关键字，如果包含，就把包含关键字的整行拷贝到另一张sheet上

个人写的代码如下：
Option Explicit

Sub 手续费分客户()

Dim y As String
Dim i As Long

y = Application.InputBox(Prompt:="请输入名称")

For i = 1 To Range("A1048576").End(xlUp).Row

  If Worksheets("数据汇总").Cells(i, 1) Like "*" & y & "*" Then

  Worksheets("数据汇总").Cells(i, 1).EntireRow.Copy Destination:=Worksheets("Sheet4").Range("A1048576").End(xlUp).Outfit(1, 0)

  End If

Next

End Sub


但是系统debug总是说以下这句有问题
  Worksheets("数据汇总").Cells(i, 1).EntireRow.Copy Destination:=Worksheets("Sheet4").Range("A1048576").End(xlUp).Outfit(1, 0)

搞不明白，请大神指点一二，万分感谢

chis3

outfit?
有這個屬性嗎?
offset吧

定一居士

我粗心了  多谢您啦

定一居士

chis3 发表于 2019-6-20 22:40
outfit?
有這個屬性嗎?
offset吧

我粗心了 多谢您