我的代码似乎可以工作，但它突出显示了我的最后一行代码，并显示“运行时错误‘1004’：无法在重叠选择上使用该命令。”
我尝试了在网上找到的一些各种更改，但似乎无法修复该错误。
Sub Delete_EEE()
Dim Wrds As Variant, Gwrds As Variant, i As Long, Fnd As Range, fAdr As String
Gwrds = Array("jan", "m123", "06014", "06015", "06016", "t49", "m39", "cwr", "rnc", "d55", "rer", "rlr", "rwr", "M55", "5962")
Wrds = Array("ohm", "resistor", "semiconductor", "MCKT", "MICKT", "microcircuit", "inductor", "xfmr", "eeprom", "oscillator")
'Application.ScreenUpdating = False
For i = LBound(Gwrds) To UBound(Gwrds)
Set Fnd = Range("G:G").Find(Gwrds(i), , , xlPart, , , False)
If Not Fnd Is Nothing Then
fAdr = Fnd.Address
Fnd.Value = "#N/A" …我想摆脱下面的代码中的sht2.Select和sht2.Range("B2").Select.有没有办法做到这一点？
Sub Remaining()
Dim sht2 As Worksheet
Dim cell As Range
Set sht2 = ThisWorkbook.Worksheets("Sheet2")
sht2.Select
sht2.Range("B2").Select
With sht2
For Each cell In .Range("B2", Cells(Rows.Count, "B").End(xlUp))
If .Range("A:A").Find(What:=cell.Value2, LookAt:=xlWhole) Is Nothing Then
Intersect(.UsedRange, cell.EntireRow).Offset(, 1).Copy Sheets("Sheet1").Cells(Rows.Count, "L").End(xlUp).Offset(1)
cell.Interior.Color = vbYellow
End If
Next cell
End With
End Sub
如果列H包含以下任何值,我想删除一行:
1) %
2) Resistor
3) Capacitor
4) MCKT
5) Connector
6) anything else I may want to add to this list...
在谷歌上发现并编辑 - 它运作良好 - 不确定是否有更"有效"的方法来做到这一点.
Sub DeleteRows()
lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row
readrow = 1
For n = 1 to lastrow
If Range("H" & ReadRow).Value = "%" Or _
Range("H" & ReadRow).Value = "Resistor" Or _
Range("H" & ReadRow).Value = "Capacitor" Or _
Range("H" & ReadRow).Value = "MCKT" Or _
Range("H" & ReadRow).Value = "Connector" Then
Range("H" & ReadRow).EntireRow.Delete
Else …有没有办法让我摆脱.选择以下代码？
ActiveSheet.Range("$A$2:$AI$5000").AutoFilter Field:=3, Criteria1:="1"
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "00"
ActiveSheet.Range("$A$2:$AI$5000").AutoFilter Field:=3
Range("A1").Select