[已解决]大哥，用VBA什么循环，求解（编号04）

爷们679

idnoidno 发表于 2017-9-21 11:10
哇
    If Left(br(i, 1), 1) = 0 Then
        br(i, 2) = 10

If Left(br(i, 1), 1) = "." Then
        br(i, 2) = 10
    Else
        br(i, 2) = Left(br(i, 1), 1)
    End If
我又学到新的知识。

大灰狼1976

提两个建议：
1、都是数值，最好不要用字符串的处理方式来处理；
2、举例说明时不要拿代码来说明，而是用实际数据，比如哪个单元格原来是什么值，现在要根据什么规则，处理成什么值。

爷们679

大灰狼1976 发表于 2017-9-21 13:00
提两个建议：
1、都是数值，最好不要用字符串的处理方式来处理；
2、举例说明时不要拿代码来说明，而是用 ...

好的。

idnoidno

大哥，不好意思因為我的問題讓您的答覆被版主提出建議
您的意思我大概懂，不過不合理耶，小數點都換成10，
那5.875變成多少？58.75？還是50875？所以換成10變成甚麼就不得而知

爷们679

idnoidno 发表于 2017-9-21 14:58
大哥，不好意思因為我的問題讓您的答覆被版主提出建議
您的意思我大概懂，不過不合理耶，小數點都換成10， ...

版主的建议是好的，值得推广。还有您帮我写的代码没错。我要向大哥学习写的代码，然后在仿照一下。大哥可以看下我仿照的代码，不足之处多多指教。Sub zz()Dim ar, br, i%
ar = Range("b4:i" & Cells(Rows.Count, 2).End(3).Row)
ReDim br(1 To UBound(ar), 1 To 2)
For i = 1 To UBound(ar) - 2
    br(i, 1) = Right(ar(i, 1) + ar(i + 1, 8), 3) / 16
   If Left(br(i, 1), 1) = "." Then
        br(i, 2) = 10
    Else
        br(i, 2) = Left(br(i, 1), 1)
    End If
Next i
[n6].Resize(UBound(br), 2) = br
End Sub

idnoidno

您的逗點，每一個數字都有逗點的話，不就得到都是10嗎