删空格行

xing_chen · 发表于 2023-7-20 17:28

老师！有表，希望通过对话框提示选列删除空格所在行，簿中有代码，但未成功，敬请老师赐教。谢谢！

cyq4896 · 发表于 2023-7-20 17:34

本帖最后由 cyq4896 于 2023-7-20 17:41 编辑

修改并写个

xing_chen · 发表于 2023-7-20 17:54

cyq4896 发表于 2023-7-20 17:34
修改并写个

谢谢老师！运行如愿

lcluck2002 · 发表于 2023-7-20 17:56

左右倒腾？

ykcbf1100 · 发表于 2023-7-20 18:14

参与一下。

gwjkkkkk · 发表于 2023-7-20 18:26

Sub TEST()
Dim n&
n = Application.InputBox("请选择列", Title:="提示", Default:=6, Type:=1)
If n = 0 Then Exit Sub
Columns(n).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

gwjkkkkk · 发表于 2023-7-20 18:27

代码审核中，请参考图片。。。

xing_chen · 发表于 2023-7-20 18:37

ykcbf1100 发表于 2023-7-20 18:14
参与一下。

谢谢老师！运行如愿

xing_chen · 发表于 2023-7-20 18:38

gwjkkkkk 发表于 2023-7-20 18:27
代码审核中，请参考图片。。。

谢谢老师！运行如愿

henterwu · 发表于 2023-7-21 15:01

选列用Ctrl+G定位空值后删除行。

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

[求助] 删空格行

评分

评分

评分