用函数或VBA代码自动获取单元格数据

平凡的追逐

如图，已知A2单元格规格数据（长度*厚度*宽度），如何用函数或者VBA代码使B2单元格自动算出A2单元格数据的面积总和？

立地成佛

例子多来几个吧，这样子好确定规律。比如说是不是每个单元格都有换行符，或者厚度是不是都是80（都是80就简单了）

欢亿

Function GETDATA(rng As Range)
Dim arr, brr, i, j, P
arr = Split(Replace(rng, "MMH", ""), Chr(10))
  For i = 0 To UBound(arr)
  brr = Split(arr(i), "*")
    P = 1
      For j = 0 To UBound(brr)
      P = P * brr(j)
      Next
      GETDATA = P / brr(1) / 1000000 + GETDATA
  Next
End Function

萌新瞎写写

火云普陀

呃呃，厚度不是固定的，换行符也是不固定的（有的没有，有的有几个），是不是用VBA方便些？麻烦可以给个都是80厚的方法？学习学习，谢谢大佬

灬娃娃灬

向大佬学习

冬天的北极熊

厚度是不固定的，换行符也不是固定的，可能没有，也可能有几个

就不看回帖

大佬，去除厚度，只有长*宽的数据，怎么实现自动获取的功能？