我大约有30张纸希望同时运行此代码。我想找到“ ABC”并删除所有工作表中它旁边的单元格的值。
我从以下地方得到错误： Set rSearch = .**range**("A1", .range("A" & rows.count).end(x1up))
当我在“ With”语句旁边指定“ Sheet1”时，它可以工作，但是我希望此代码在所有工作表上运行。
Sub soek()
Dim rSearch As Range
Dim rFound As Range
Dim sign12 As String
Dim sheetsarray As Sheets
Set sheetsarray = ActiveWorkbook.Sheets(Array("sheet1", "sheet2", "sheet3"))
sign12 = "ABC"
With sheetsarray
Set rSearch = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
Set rFound = rSearch.Find(What:=sign12, LookIn:=xlValues)
If rFound Is Nothing Then
Else
rFound.Offset(0, 1).ClearContents
End If
End With
End Sub
这个问题很像：如何在Excel工作簿的所有工作表中搜索字符串？
但是我认为，与上面链接中的代码相比，了解如何使代码在读取我的代码的其他工作表上运行要容易得多。
试试这个（上面评论的汇编；-）
Sub soek()
Dim rSearch As Range
Dim rFound As Range
Dim sign12 As String
Dim oWB As Workbook
Dim oWS As Worksheet
Set oWB = ThisWorkbook
sign12 = "ABC"
For Each oWS In oWB.Sheets
With oWS
Set rSearch = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
Set rFound = rSearch.Find(What:=sign12, LookIn:=xlValues)
If rFound Is Nothing Then
Else
rFound.Offset(0, 1).ClearContents
End If
End With
Next oWS
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句