Excel VBA总结一个基于几乎相同的描述

Question

我的问题：

我有一些数据，而值的基数是相同的，但最后可能是其他东西，例如：

V573589
V574695
V574695A
V574695B

目标：

我想要一个宏来识别，当它在单元格末尾找到“A”或“B”时，并删除最后的“A”和“B”。最重要的是，我希望它删除具有相同描述值的第一行，或者它可以对 3 个值求和。

目前我已经尝试使用 .Find("B",Lookat:=xlPart)... 但没有任何运气:(

Answer 1

要查找以字母结尾的值：

Dim rng as Range
dim cl as Range

set rng = /define your column with data here/
for each cl in rng
If Right(cl, 1) = "A" Or Right(cl, 1) ="B" Then
    'Do whatever you want to
End If

您可以删除最后一个字符来代替循环内的注释：

cl = Left(cl, Len(cl)-1))

然后，在下一步中，根据需要求和或删除。