Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 428|回复: 15

[已解决] [已解决]大哥,用VBA什么循环,求解(编号04)

[复制链接]
发表于 2017-9-20 21:59 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
本帖最后由 爷们679 于 2017-9-21 12:55 编辑

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

04.zip

43.85 KB, 下载次数: 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
复制代码
发表于 2017-9-20 22:36 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 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
复制代码

评分

参与人数 1经验 +3 收起 理由
爷们679 + 3

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-9-21 09:40 | 显示全部楼层

谢谢大哥,能再帮我把小数点换成数字10
回复 支持 反对

使用道具 举报

发表于 2017-9-21 11:03 | 显示全部楼层
大哥,小数点换成数字10示甚麼ˋ意思
回复 支持 反对

使用道具 举报

发表于 2017-9-21 11:10 | 显示全部楼层
  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
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-9-21 11:10 | 显示全部楼层

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

微調這一段代碼喔
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-9-21 11:27 | 显示全部楼层
idnoidno 发表于 2017-9-21 11:03
大哥,小数点换成数字10示甚麼ˋ意思

大哥好,我想把小数点换成数字10进行第二次判断。
回复 支持 反对

使用道具 举报

发表于 2017-9-21 11:31 | 显示全部楼层
請給一個範例好嗎
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-9-21 12:54 | 显示全部楼层
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
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2017-10-18 00:48 , Processed in 0.109200 second(s), 25 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表