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

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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(2条)

报告相同问题?

问题事件

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

悬赏问题

  • ¥15 CST仿真别人的模型结果仿真结果S参数完全不对
  • ¥15 pyqt5读取ui文件报错
  • ¥15 请问在阿里云服务器中怎么利用数据库制作网站
  • ¥60 ESP32怎么烧录自启动程序
  • ¥50 html2canvas超出滚动条不显示
  • ¥15 java业务性能问题求解(sql,业务设计相关)
  • ¥15 52810 尾椎c三个a 写蓝牙地址
  • ¥15 elmos524.33 eeprom的读写问题
  • ¥15 用ADS设计一款的射频功率放大器
  • ¥15 怎么求交点连线的理论解?