UC知道谁帮我修改一下Excel的搜索命令,谢谢谢谢谢谢了!!
来源：百度知道 编辑：UC知道 时间：2024/05/17 01:17:52
谁帮我修改一下Excel的搜索命令,谢谢谢谢谢谢了!!
我知道里没分了,不好意思,请各位大侠帮下忙,小弟先谢过了!!!
代码如下:
Sub 搜索()
Sheet1.Range("a10:ah65535").Clear
tmp = [a6]
With Sheet1
For Each sht In ActiveWorkbook.Sheets
If sht.Name <> "Sheet1" Then
irow = sht.Range("a65535").End(xlUp).Row
For i = 2 To irow
If sht.Cells(i, 8) = tmp Then
sht.Rows(i).Copy Sheet1.Range("a65535").End(xlUp).Offset(1, 0)
End If
Next i
End If
Next sht
End With
End Sub
我知道里没分了,不好意思,请各位大侠帮下忙,小弟先谢过了!!!
代码如下:
Sub 搜索()
Sheet1.Range("a10:ah65535").Clear
tmp = [a6]
With Sheet1
For Each sht In ActiveWorkbook.Sheets
If sht.Name <> "Sheet1" Then
irow = sht.Range("a65535").End(xlUp).Row
For i = 2 To irow
If sht.Cells(i, 8) = tmp Then
sht.Rows(i).Copy Sheet1.Range("a65535").End(xlUp).Offset(1, 0)
End If
Next i
End If
Next sht
End With
End Sub
With Sheet1
改为： with sheets("sheet1")
sht.Rows(i).Copy Sheet1.Range("a65535").End(xlUp).Offset(1, 0)
改为：
sht.rows(i).copy .range("a65536").end(xlup).offset(1,0)
其他别的没有看到。
不知道你说的什么
也不懂你说的是什么意思哦,是"查找"命令吗,如果是的话,再说