Excel把最后单元格是双数的列全部删除怎样做

发布网友发布时间：2022-04-25 06:53

共2个回答

热心网友时间：2023-11-05 00:30

这要用宏解决。
假设你的数据共有10列，从1到10列。
lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For x = 1 To 10
mymod = Cells(lastrow, x) Mod 2
If mymod = 0 Then
Cells(lastrow, x).EntireColumn.Select
Selection.Delete Shift:=xlToLeft
End If
Next

热心网友时间：2023-11-05 00:30

楼上写得已经很具体了，如果你不知道宏应该怎么用，可以查询一下帮助。
不过简单我可以给你说一下：
1、按下Alt + F11键
2、在左面的框中，选中并双击你要处理的那个工作表
3、把这段代码复制进右面出现的代码区内：
Sub commands()
lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For x = 1 To 10
mymod = Cells(lastrow, x) Mod 2
If mymod = 0 Then
Cells(lastrow, x).EntireColumn.Select
Selection.Delete Shift:=xlToLeft
End If
Next
End sub

然后运行一下就可以了，注意在运行前记得提前备份一下你的文件，如果你的操作出现错误，会无法撤销操作！

如果连运行都不会，那就算了~~~