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

爷们679

详细内容见工作表。先根据工作表里面的函数,假设L列是   0   的话,那么改成   10   .

最佳答案

月排行榜 / 总排行榜

idnoidno

2017-9-21 07:00

1. Option Explicit
   
2. Sub t1()
   
3. Dim ar, br, i%
   
4. ar = Range("b4:i" & Cells(Rows.Count, 2).End(3).Row)
   
5. ReDim br(1 To UBound(ar), 1 To 2)
   
6. For i = 1 To UBound(ar) - 2
   
7.     br(i, 1) = Right(ar(i, 1) + ar(i + 1, 8), 3) / 16
   
8.     br(i, 2) = Left(br(i, 1), 1)
   
9. Next i
   
10. [n6].Resize(UBound(br), 2) = br
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

idnoidno

需要我回覆嗎，大哥

idnoidno

1. Option Explicit
   
2. Sub t1()
   
3. Dim ar, br, i%
   
4. ar = Range("b4:i" & Cells(Rows.Count, 2).End(3).Row)
   
5. ReDim br(1 To UBound(ar), 1 To 2)
   
6. For i = 1 To UBound(ar) - 2
   
7.     br(i, 1) = Right(ar(i, 1) + ar(i + 1, 8), 3) / 16
   
8.     br(i, 2) = Left(br(i, 1), 1)
   
9. Next i
   
10. [n6].Resize(UBound(br), 2) = br
    
11. End Sub
    

复制代码

爷们679

idnoidno 发表于 2017-9-21 07:00

谢谢大哥，能再帮我把小数点换成数字10

idnoidno

大哥，小数点换成数字10示甚麼ˋ意思

idnoidno

1. Sub t1()
   
2. Dim ar, br, i%
   
3. ar = Range("b4:i" & Cells(Rows.Count, 2).End(3).Row)
   
4. ReDim br(1 To UBound(ar), 1 To 2)
   
5. For i = 1 To UBound(ar) - 2
   
6.     br(i, 1) = Right(ar(i, 1) + ar(i + 1, 8), 3) / 16
   
7.     [color=Red]If Left(br(i, 1), 1) = 0 Then
   
8.         br(i, 2) = 10
   
9.     Else
   
10.         br(i, 2) = Left(br(i, 1), 1)
    
11.     End If[/color]
    
12. Next i
    
13. [n6].Resize(UBound(br), 2) = br
    
14. End Sub
    

复制代码

idnoidno

哇
    If Left(br(i, 1), 1) = 0 Then
        br(i, 2) = 10
    Else
        br(i, 2) = Left(br(i, 1), 1)
    End If

微調這一段代碼喔

爷们679

idnoidno 发表于 2017-9-21 11:03
大哥，小数点换成数字10示甚麼ˋ意思

大哥好，我想把小数点换成数字10进行第二次判断。

idnoidno

請給一個範例好嗎

爷们679

idnoidno 发表于 2017-9-21 11:31
請給一個範例好嗎

谢谢大哥教导。
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