[已解决]求个简单的vba

oiufg

组合数.rar (9.85 KB, 下载次数: 15)

2013-2-1 23:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-2 00:04

1. Sub test2()
   
2.     Dim rg As Range, i&
   
3.     On Error Resume Next
   
4.     For i = 17 To 9 Step -1
   
5.         If Columns(i).SpecialCells(xlCellTypeConstants) Is Nothing Then
   
6.             Columns(i).Delete
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

这个只能针对常量过虑。

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     On Error Resume Next
   
3.     Range("i:q").SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
   
4. End Sub

复制代码

hwc2ycy

通过技巧的定位（空值），删除单元格，单元格向左移动。

oiufg

hwc2ycy 发表于 2013-2-1 23:14

我想要把空列删除,这样可以保证按顺序向左靠

hwc2ycy

意思是，要整列是空的才删除？

oiufg

hwc2ycy 发表于 2013-2-1 23:52
意思是，要整列是空的才删除？

是呀,要整列是空的才删除

hwc2ycy

1. Sub test2()
   
2.     Dim rg As Range, i&
   
3.     On Error Resume Next
   
4.     For i = 17 To 9 Step -1
   
5.         If Columns(i).SpecialCells(xlCellTypeConstants) Is Nothing Then
   
6.             Columns(i).Delete
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

这个只能针对常量过虑。