网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：280,872贴子：1,544,399
  • 28回复贴，共1页

excel 多行批量删除求助！多行批量删除求助！多行批量删除求助！


各位大神好：
问题描述：如图，我需要批量删除1行到7行，13行到19行，25行到31行，以此类推......要重复操作删除110次。
设备版本：macbookair版excel 没有powerquery，只能运行VBA。
求助项：需求VBA语言，函数，或者其他操作能实现批量删除。（数据源格式会变化，最好是通用VBA语言或者函数）
以上，求助各位大佬解答，谢谢！！！


vba倒序删除


左边插入一列A列，B列筛选PACKINGLIST，A列可见单元格打1，之后A列空值输入公式=上一个单元格+1，然后筛选A列1-7的数值一起删行，再把A列删除


'凑了一个，看上去应该差不多的
Option Explicit
Sub abc()
　Dim i, j
　Application.ScreenUpdating = False
　For i = Cells(Rows.Count, "b").End(xlUp).Row To 1 Step -1
　　If InStr(UCase(Cells(i, "a").Value), "CASE") = 1 Then
　　　For j = i - 1 To 1 Step -1
　　　　If InStr(UCase(Cells(j, "a").Value), "PACK") = 1 Then
　　　　　Rows(j).Resize(i - j).Delete
　　　　　i = j: Exit For
　　　　End If
　　　Next
　　End If
　Next
　Application.ScreenUpdating = True
End Sub


好像又在审核中，这貔貅今晚又开始发飙了


要我说，才110行，有这功夫你早删完了


代码和模拟删除结果



Sub 删除前7行()
'----------------------------------------------------
'程序功能：每12行为一个轮回，每个轮回体内部前7行删除
Dim i%
For i = Range("B65536").End(xlUp).Row - 11 To 1 Step -12
Rows(i).Resize(7).Delete
Next
End Sub



'假设这是你的数据,运行完代码后,是删是留.你自已来.
'代码:
Sub 选择()
Dim rg As Range
Set rg = Range("1:7")
For i = 13 To ActiveSheet.UsedRange.Rows.Count Step 12
Set rg = Union(rg, Range(i & ":" & i + 6))
Next i
rg.Select
End Sub


另起一张表，遍历=indirect("a"&(row()+quotient(row(),8)*12)


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 28回复贴，共1页
分享到: