Word的表格复制到Excel中以后，Excel空单元格仍有内容，字符检查有长度？如何空对空？

rudy_0990 · 发表于 2021-10-20 09:37

如题，将Word表格内容提取到了Excel（用VBA提取的）
1.Word中本来有些空格子，一起读到了Excel中
2.在去除Excel空格子的时候，总是无法去除，后来检查发现，从Word读过来的表，原来在Word中空格子，读到Excel虽然没显示内容，但是有字符长度，为什么，如何空对空？
谢谢了。

紫色海水 · 发表于 2021-10-20 10:35

在VBA里加一个语句，把char（13）替换为空就行了

rudy_0990 · 发表于 2021-10-20 11:32

紫色海水发表于 2021-10-20 10:35
在VBA里加一个语句，把char（13）替换为空就行了

这是含代码的，请帮忙看下代码应该如何优化
下面几段我写的代码，用来删除空行，就卡在了以上提到的问题上了
谢谢。

rudy_0990 · 发表于 2021-10-20 13:28

紫色海水发表于 2021-10-20 10:35
在VBA里加一个语句，把char（13）替换为空就行了

Sub panduan()
Dim rng As Range
For Each rng In [a1].CurrentRegion
If Len(rng) < 2 Then
rng.Value = ""
End If
Next
End Sub
我先用这个来判断，把有字符的单元格清空，在根据空单元格删除多的行
但是总感觉哪里不太对，不是理想的方式

smiletwo · 发表于 2021-10-20 13:47

制表符问题 Len(rng) <= 2 试试

rudy_0990 · 发表于 2021-10-20 14:03

smiletwo 发表于 2021-10-20 13:47
制表符问题 Len(rng)

我就是用这个解决了，但是总感觉有局限性
判断列的被判断单元格，有人漏填，但是同行其他单元格有数据的情况，容易被误删

smiletwo · 发表于 2021-10-20 15:14

rudy_0990 发表于 2021-10-20 14:03
我就是用这个解决了，但是总感觉有局限性
判断列的被判断单元格，有人漏填，但是同行其他单元格有数据的 ...

那就把同行所有单元格内容串起来作为判断依据啊

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