JSA小白 2022-03-30 18:22 采纳率: 60%
浏览 611
已结题

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

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

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

img

  • 写回答

3条回答 默认 最新

  • ダ雨夹雪リ 2022-03-30 20:12
    关注

    '查找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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
  • 歇歇 2022-03-30 19:41
    关注

    你发一下完整代码

    评论
  • 卡尔曼的BD SLAMer 计算机视觉领域新星创作者 2022-03-30 18:44
    关注
    评论
查看更多回答(2条)

报告相同问题?

问题事件

  • 已结题 (查看结题原因) 3月30日
  • 已采纳回答 3月30日
  • 赞助了问题酬金5元 3月30日
  • 赞助了问题酬金5元 3月30日
  • 展开全部

悬赏问题

  • ¥30 计算机网络子网划分路由模拟操作
  • ¥15 MATLAB的画图问题
  • ¥15 c语言用fopen_s成功打开文件之后闪退
  • ¥20 用C++完成,并且运用数组
  • ¥30 求解电力系统潮流计算结果不收敛问题
  • ¥15 某易易盾点选data解析逆向
  • ¥15 系统崩溃,关于订单的处理
  • ¥15 datax-web连接hive为数据源时发生报错,如何解决?
  • ¥15 plink在进行gwas分析时总读取不到表型
  • ¥20 数据结构与c语言的实践内容