删空单元时遇到假空单元格，求修改简单代码

lagos · 发表于 2023-5-27 15:33

详情请见附件：

请修改代码AB.rar (13.03 KB, 下载次数: 12) ，求能删掉这种假空单元格的代码

yylucke · 发表于 2023-5-27 16:25

Sub B空格删除左()
Arr = Range("A1").CurrentRegion
For i = 1 To UBound(Arr)
If Len(Application.Clean(Arr(i, 1))) = 0 Then Cells(i, "C") = ""
Next i
End Sub

lagos · 发表于 2023-5-27 20:11

yylucke 发表于 2023-5-27 16:25
Sub B空格删除左()
Arr = Range("A1").CurrentRegion
For i = 1 To UBound(Arr)

谢谢大神的代码，测试了下，对于之前的是能删掉的，又复制了新的两列后，又删不掉了，按说第一次能删除，第二次也能删除才对，发新附件上来，请大神再帮忙看看。一直在网上没有搜到合适的删去区域空行的代码，不然先删除区域空行，再删C列。

求修改代码AB.rar (16.34 KB, 下载次数: 3)

ykcbf1100 · 发表于 2023-5-27 20:27

lagos 发表于 2023-5-27 20:11
谢谢大神的代码，测试了下，对于之前的是能删掉的，又复制了新的两列后，又删不掉了，按说第一次能删除， ...

试试这个代码，肯定可以。

lagos · 发表于 2023-5-27 20:44

ykcbf1100 发表于 2023-5-27 20:27
试试这个代码，肯定可以。

大神，这个删的范围有些大，好像是整个表的都删了一行，对比发现，少了一行，之前有字符的一行被删掉了。能不能只删掉A：B这个区域的行

ykcbf1100 · 发表于 2023-5-27 20:46

lagos 发表于 2023-5-27 20:44
大神，这个删的范围有些大，好像是整个表的都删了一行，对比发现，少了一行，之前有字符的一行被删掉了。 ...

你改下范围就行了。

cyq4896 · 发表于 2023-5-28 15:05

试试是这样吧

yanglinzi · 发表于 2023-5-28 17:17

yanglinzi · 发表于 2023-5-28 17:18

请测试.....

yylucke · 发表于 2023-5-30 12:59

lagos 发表于 2023-5-27 20:11
谢谢大神的代码，测试了下，对于之前的是能删掉的，又复制了新的两列后，又删不掉了，按说第一次能删除， ...

我下载了你的附件，代码可以删除。

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

[求助] 删空单元时遇到假空单元格，求修改简单代码