Wps js宏根据条件删除指定行

Question

目前是Range("1-13"）.Delete
删除1-13行 因为14行以后才是需要的数据

需求是万一15行以后或者16行以后才是需要的数据，怎样删除有效数据之前的所有行。

Answer 1

'查找A列,静态码店员：0000 所在的行
'然后拼接一个地址1到该行-1
'然后删除

Dim r As Integer
Dim ran As String

r = 0
Set C = Range("A:A").Find("静态码店员：0000")

If Not C Is Nothing Then
r = C.Row
End If

ran = "1:" & r - 1

'把你的Range("1-13"）.Delete 换掉
Range(ran).Delete

Answer 2

你发一下完整代码

Answer 3

https://blog.csdn.net/xiaoxiaowanzio/article/details/100080289