平凡的追逐 发表于 2021-12-22 09:23:00

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

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

立地成佛 发表于 2022-1-20 20:30:15

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

欢亿 发表于 2022-1-31 23:18:26

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

萌新瞎写写

火云普陀 发表于 2022-2-7 12:44:10

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

灬娃娃灬 发表于 2022-2-18 06:00:02

向大佬学习

冬天的北极熊 发表于 2022-2-20 20:55:58

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

就不看回帖 发表于 2022-3-28 10:23:03

大佬，去除厚度，只有长*宽的数据，怎么实现自动获取的功能？
页: [1]
查看完整版本: 用函数或VBA代码自动获取单元格数据