Excel VBA比较较长的字符串与不一致

Question

我有三个excel专栏：“描述”和“用法”在表1中，“描述和用法”在表2中。

描述和用法合并为一张纸，并与标题（“描述：”和“用法”）或Entertab分开。

描述始终以小写字母开头（以名称开头时为Excel），描述始终以大写字母开头。

有时，描述以句号结束，有时不会。

这些列是一个非常大的旧文件的一部分。当IT系统首次实施时，一些数据已被手动插入，这就是为什么有这么多不一致的原因。

现在我想进行自动比较，但我不知道如何处理所有的不一致，我该怎么办？

Answer 1

部分代码：

s$= cells.value
while right(s,1)=" "
s=left(s,len(s)-1)
wend
s = ucase(    left(s,1) ) & right(s,len(s)-1)
cells.value = s