小白求助两个关于删除列和行的代码

活在理想的世界

这是删空列的，依然是用你的思路写的，代码比删空行还简单呢。。。。

1. Sub 删空列()
   
2. Dim N As Worksheet, R As Integer
   
3. R = InputBox("选择基准行")
   
4. Set N = ActiveSheet
   
5.     N.Rows(R & ":" & R).Select
   
6.     Selection.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
   
7. End Sub
   

复制代码

305117

活在理想的世界 发表于 2017-4-23 08:43
好思路，我都没想到还有这样的玩儿法，你提醒我了，我还要感谢你。。

先给你个删空行的代码，用F5思路 ...

删除空行的代码可以在[InputBox]输入列的编号吗?
这样会个更加简单，帮忙思考可否修改，谢谢!

活在理想的世界

305117 发表于 2017-4-24 12:18
删除空行的代码可以在输入列的编号吗?
这样会个更加简单，帮忙思考可否修改，谢谢!

1. Sub 删空行()
   
2. Dim N As Worksheet, COL As String
   
3. COL = InputBox("请输入列号")
   
4. Set N = ActiveSheet
   
5.     N.Columns(COL & ":" & COL).Select
   
6.     Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
7. End Sub

复制代码

活在理想的世界

13楼代码测试过了，不论大写字母还是小写字母都可以用，而且是完美的解决了问题。

以前学VBA的时候都是学阿拉伯数字的，有一天自己也能按照自己的想法写代码了只是自己还不知道，如果不是上论坛还不知道自己能实现一些以前想过但一直认为无法实现的问题。

此案例虽简单但很有价值，至少对我来说是这样的。

305117

活在理想的世界 发表于 2017-4-24 14:44
13楼代码测试过了，不论大写字母还是小写字母都可以用，而且是完美的解决了问题。

以前学VBA的时候都是 ...

非常感谢您的帮助，。