取数字并运算

iwangyi

如A列有三个数相乘
12*160*1800取12*1800的值
50*120*140取50*140的值
30*80*5取30*5的值
要求在对应B列求第1个数乘第三个数乘积的结果

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, t
  arr = [a1].CurrentRegion
  For i = 1 To UBound(arr, 1)
    If InStr(arr(i, 1), "*") Then
      t = Split(arr(i, 1), "*")
      If UBound(t) > 1 Then
        arr(i, 1) = Evaluate(t(0) & "*" & t(2))
      Else
        arr(i, 1) = "??"
      End If
    Else
      arr(i, 1) = "?"
    End If
  Next
  [b1].Resize(UBound(arr, 1)) = arr
End Sub

719404338

1. Sub t()
   
2. Dim i%
   
3. For i = 1 To 3
   
4. Range("b" & i) = "=" & Split(Range("a" & i), "*")(0) & "*" & Split(Range("a" & i), "*")(2)
   
5. Next
   
6. End Sub
   

复制代码

B列改为数值型。
[

xiangbaoan

Sub 猜的()
ar = [a1:a3].Formula
ReDim br(1 To UBound(ar), 1 To 1)
For i = 1 To 3
    t = Split(Mid(ar(i, 1), 2), "*")
    br(i, 1) = t(0) * t(UBound(t))
Next
[b1].Resize(UBound(br)) = br
End Sub

iwangyi

谢谢老师解答

小花鹿

你这是考小学生的吧