您的位置 首页 > 娱乐休闲

EXCEL对照相应文字产生数值并求和!VBA来帮你

大家在工作中,可能会遇到这样的情况,就是需要将文字依照给定的标准换算为数值并求和。

就像这样的。

我们需要依据表一的标准,把表二相应文字对照换算为数值并求和。

其实我们这些小白可以新建个工作表,再用VLOOKUP函数和sum函数即可实现。

当然,这里说说如果用VBA的话,我们该怎么做呢?

上代码:

Sub 替换求和()

Dim A, D, E As Integer, F(1 To 7) As Single, H As Byte

With Sheets("表一")

A = .Range("A1").CurrentRegion

End With

With Sheets("表二")

D = .Range("A1").CurrentRegion

For E = 2 To UBound(D)

For H = 2 To 8

If D(E, H) <> "" Then

If Not IsError(D(E, H), A, 1, 0)) Then

F(H - 1) = A(D(E, H), A, 2, 0)

End If

End If

Next

D(E, 9) = A(F): Erase F

Next

.Range("A1").Resize(UBound(D), UBound(D, 2)) = D

End With

End Sub

搞定。

责任编辑: 鲁达

1.内容基于多重复合算法人工智能语言模型创作,旨在以深度学习研究为目的传播信息知识,内容观点与本网站无关,反馈举报请
2.仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证;
3.本站属于非营利性站点无毒无广告,请读者放心使用!

“excel中如何将两个文本相加”边界阅读