批量删除行有点慢，还能不能在快

tanglf188 · 发表于 2023-3-7 10:08

shenzhenyang 发表于 2023-3-6 18:43
谢谢老师，还是字典+数组速度最快，这个字典+数组有没有办法可以不要把表格变成数值，我的实际范围A7：BA ...

刚才试了一下数组+字典是可以读写公式的，但问题是你删除了行以后，里面的单元格地址或行号是不变的，也就是即使写入了公式，结果也可能是错的，建议你还是把真实的附件传上来，随便填几条数据就可以了，有公式的列也随便写写，格式有就行了。

shenzhenyang · 发表于 2023-3-7 13:40

tanglf188 发表于 2023-3-7 10:08
刚才试了一下数组+字典是可以读写公式的，但问题是你删除了行以后，里面的单元格地址或行号是不变的，也 ...

这个表就是几列有公式的列位置，公式我是随便填写的，AA列后面列的数据还会增加，目前就这些。
我的目的批量删除工作表，删除符合条件的行。

我最终操作是删除行和删除某些列后再保存成一个新的工作薄出来的，这个删除行其中一个过程而已。

谢谢老师

准提部林 · 发表于 2023-3-7 14:56

檢查//排序//清除(非刪除)//保留公式及格式

Xl0000223-1.rar (65.65 KB, 下载次数: 17)

tanglf188 · 发表于 2023-3-7 16:11

读写公式比原来慢的有点明显，但比DELETE方法还是要快上不少，代码以A:Z为例，请测试。

zxsea_7426 · 发表于 2023-3-7 18:55

。。。。。。。。。

shenzhenyang · 发表于 2023-4-23 21:04

准提部林发表于 2023-3-7 14:56
檢查//排序//清除(非刪除)//保留公式及格式

删除前这样

老师，要麻烦您了，在使用中发现有个问题，我D列有些单元格我会插入复选框，条件删除的时候，D列不会随着条件一同删除行，变成删除行后D列复选框对应的位置错误。麻烦老师帮我改下，谢谢。

准提部林 · 发表于 2023-4-23 21:15

shenzhenyang 发表于 2023-4-23 21:04
删除前这样

表中有物件, 不適于排序法,
那就用其他老師的, 行刪除~~

准提部林 · 发表于 2023-4-23 23:06

shenzhenyang 发表于 2023-4-23 21:04
删除前这样

把選框的上下邊界都調在單元格的格子內試試~~

你地铁图 · 发表于 2023-4-23 23:20

公式比较统一还容易些

shenzhenyang · 发表于 2023-4-24 00:35

准提部林发表于 2023-4-23 23:06
把選框的上下邊界都調在單元格的格子內試試~~

Sub 粘贴复选框()
Dim x As Shape
Application.ScreenUpdating = False
With Selection
For R = 1 To .Rows.Count
With .Cells(R, 1)
AD = ActiveCell.Address(0, 0)
With ActiveSheet.Shapes.AddFormControl(xlCheckBox, .Left, .Top, .Width, .Height).OLEFormat.Object
.LinkedCell = AD
.Caption = "结账"
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End With
End With
Next
End With
Application.ScreenUpdating = True
End Sub

复制代码

老师，我用这个代码粘贴复选框，是在单元格范围内。

		自动登录	找回密码
密码			免费注册

[求助] 批量删除行有点慢，还能不能在快