请解释VBA“运行时错误‘424
Sub MK606()
'
'
Cells(1, 5) = "=COUNTA(C[-4])"
Dim AI, Q, r1 As Variant
AI = Range("E1")
Range("E2")。 Select
Range("E2") = "=IF(ISERR(FIND(""食品"",RC[-1]))<>TRUE,""食品"","""")"
Selection。Copy
Range(Cells(2, 5), Cells(AI, 5))。 Select
ActiveSheet。Paste
Dim s1, ABCDE As Variant
Range("E1") = "=C...全部
Sub MK606()
'
'
Cells(1, 5) = "=COUNTA(C[-4])"
Dim AI, Q, r1 As Variant
AI = Range("E1")
Range("E2")。
Select
Range("E2") = "=IF(ISERR(FIND(""食品"",RC[-1]))<>TRUE,""食品"","""")"
Selection。Copy
Range(Cells(2, 5), Cells(AI, 5))。
Select
ActiveSheet。Paste
Dim s1, ABCDE As Variant
Range("E1") = "=COUNTIF(R2C5:R10C5,""食品"")"
s1 = Range("E1")
For ABCDE = s1 To 1 Step -1
Range("E1") = "=MATCH(""食品"",R2C5:R10C5,0)+1"
Q = Range("E1")
Cells(Q, 5)。
Select
r1 = Selection。Row
Rows(r1)。Select
Selection。ClearContents
Next
Range(Cells(1, 5), Cells(AI, 5))。
Select
Selection。ClearContents
Range("A1")。Select
Application。CutCopyMode = False
End Sub
'笨一些!但可以解决问题。
此方法要用到辅助列现在使用的是E列,请注意E列不要使用。当然你可根据需要修改宏占用如何一列为辅助列。收起