新手卡住了，求帮忙看一下

好困困困困

Sub test ()

  

  Dim身高, 体重, 腰围, BMI, 隐性肥胖 As Single

  Dimi As Integer

  Dimsheetobj As Worksheet

  Setsheetobj = ThisWorkbook.Worksheets("Sheet1")

   

With sheetobj

     For i = 2 To 16

       身高 = .Cells(i, 1)

       体重 = .Cells(i, 2)

       腰围 = .Cells(i, 3)

        BMI = "体重 / (身高 / 100) ^ 2"

        隐性肥胖 = "腰围 / 身高"

       判定= .Cells(i, 6)

       If BMI < 25 And 隐性肥胖 >= 0.5 Then

        .Cells(i, 6) = "隐性肥胖"

        End If

      Next i

   End With

  EndSub

BMI 和隐性肥胖的值求不出来。需要用vba来运算。不知道哪错了，求个大神指导

好困困困困

知道哪错了，不用了。