[已解决]这句代码哪里错了？

qjsu

下面这段代码在运行时提示类型不匹配，我想问下这是为什么？应该怎么改？
Sub 按钮1_Click()
Rows(Application.Match("其他组件材料", "G:G") + 1 & ":" & Application.Match("其他组件材料", "G:G") + 3).Delete Shift:=xlUp
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-26 19:44

1. Sub 按钮1_Click()
   
2.     Rows((Application.Match("其他组件材料", Range("B:B"), 0) + 1) & ":" & (Application.Match("其他组件材料", Range("B:B"), 0) + 3)).Delete Shift:=xlUp
   
3. End Sub

复制代码

跳转到最佳答案楼层

zjdh

Rows(Application.Match("其他组件材料", Range("G:G")) + 1 & ":" & Application.Match("其他组件材料", Range("G:G")) + 3).Delete

hwc2ycy

1. Application.WorksheetFunction.Match(1, Range("a:a"))

复制代码

范围全写上。

还有，如果你要找的那一列，如果是数值的话，那第一个参数就不要加双引号。

qjsu

zjdh 发表于 2012-10-26 19:31
Rows(Application.Match("其他组件材料", Range("G:G")) + 1 & ":" & Application.Match("其他组件材料", R ...

怎么删除的不是“其他组件材料”所在的行啊，删除的是第1-3行呢

hwc2ycy

你确认G列是文本吗？

qjsu

hwc2ycy 发表于 2012-10-26 19:35
范围全写上。

还有，如果你要找的那一列，如果是数值的话，那第一个参数就不要加双引号。

上了个附件，要删除后面的几行

hwc2ycy

qjsu 发表于 2012-10-26 19:39
上了个附件，要删除后面的几行

那是B列好吧，

hwc2ycy

第三个参数用0吧。否则找到的是B列最后一个文本所在的行。

hwc2ycy

1. Sub 按钮1_Click()
   
2.     Rows((Application.Match("其他组件材料", Range("B:B"), 0) + 1) & ":" & (Application.Match("其他组件材料", Range("B:B"), 0) + 3)).Delete Shift:=xlUp
   
3. End Sub

复制代码

hwc2ycy

是要删除组件下面的三行？