删除工资条空单元格及上一行的工资项目，右边数据不变且自动左移，

minchar

二号军兔 发表于 2022-6-19 09:13
不懂就问，第二步未找到单元格，上一步"↑"这个？

楼主既然瞧得上基本操作，我提供一个方案
1、查找全部0并选中（勾选匹配单元格）
2、键盘操作：=然后↑然后CTRL+ENTER
3、选中全部数据区→定位→引用单元格→输入0然后CTRL+ENTER
4、查找全部0并选中→删除单元格，左移

高个子

二号军兔 发表于 2022-6-19 09:29
这个公式是数组 吗？我直接用到下面就是只出现姓名那一列，其他的都没有

是数组公式

Eric0236

二号军兔 发表于 2022-6-19 09:13
不懂就问，第二步未找到单元格，上一步"↑"这个？

选取范围见图，上方与工资条无关部分不需要
第二步这个是向上箭头，就是让所有空单元格等于上一格的内容

Eric0236

minchar 发表于 2022-6-19 09:34
楼主既然瞧得上基本操作，我提供一个方案
1、查找全部0并选中（勾选匹配单元格）
2、键盘操作：=然后 ...

正解，我之前没用楼主数据，自己模拟数据的是空值

lizhipei78

minchar 发表于 2022-6-19 09:34
楼主既然瞧得上基本操作，我提供一个方案
1、查找全部0并选中（勾选匹配单元格）
2、键盘操作：=然后 ...

1. Sub Find查找删除()
   
2.     Dim Start As Double, Finish As Double
   
3.     On Error Resume Next
   
4.     Start = Timer
   
5.     Dim Cell As Range, FirstAddress As String
   
6.     With Range("A2:n5000")
   
7.         Set Cell = .Find("0", LookAt:=xlWhole)
   
8.         If Not Cell Is Nothing Then
   
9.             FirstAddress = Cell.Address
   
10.             Do
    
11.                 Cell.Offset(-1, 0).Delete Shift:=xlShiftToLeft
    
12.                 Cell.Delete Shift:=xlShiftToLeft
    
13.                 Set Cell = .FindNext(Cell)
    
14.             Loop Until Cell Is Nothing Or Cell.Address = FirstAddress
    
15.         End If
    
16.     End With
    
17.     Finish = Timer
    
18.     MsgBox "本次运行的时间是" & Finish - Start
    
19. End Sub

复制代码

帮我看一下这个代码为什么不行，只能删除部分。

lizhipei78

https://club.excelhome.net/forum ... ead&tid=1631302
我帮你求助了，用VBA可能会快一点吧，如果数据量多的话