Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2532|回复: 4

[已解决]两数差

[复制链接]
发表于 2014-12-25 18:29 | 显示全部楼层 |阅读模式
本帖最后由 mmc998 于 2014-12-25 18:59 编辑

如何用代码将两数差求出
最佳答案
2014-12-25 18:54
Sub test()
    Dim A, B, i&, r&
    r = Cells(Rows.Count, 1).End(xlUp).Row
    A = Range("a3:f" & r)
    ReDim B(1 To UBound(A), 1 To 1)
    For i = 1 To UBound(A)
        If VBA.IsNumeric(A(i, 1)) And VBA.IsNumeric(A(i, 6)) Then B(i, 1) = A(i, 6) - A(i, 1)
    Next i
    Range("h:h").ClearContents
    [h3].Resize(UBound(B)) = B
End Sub

Book两数差2.rar (80.47 KB, 下载次数: 14)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2014-12-25 18:30 | 显示全部楼层
Book两数差.rar (60.08 KB, 下载次数: 17)
回复

使用道具 举报

发表于 2014-12-25 18:43 | 显示全部楼层
回复

使用道具 举报

发表于 2014-12-25 18:54 | 显示全部楼层    本楼为最佳答案   
Sub test()
    Dim A, B, i&, r&
    r = Cells(Rows.Count, 1).End(xlUp).Row
    A = Range("a3:f" & r)
    ReDim B(1 To UBound(A), 1 To 1)
    For i = 1 To UBound(A)
        If VBA.IsNumeric(A(i, 1)) And VBA.IsNumeric(A(i, 6)) Then B(i, 1) = A(i, 6) - A(i, 1)
    Next i
    Range("h:h").ClearContents
    [h3].Resize(UBound(B)) = B
End Sub

Book两数差2.rar (80.47 KB, 下载次数: 14)
回复

使用道具 举报

 楼主| 发表于 2014-12-25 18:55 | 显示全部楼层
爱疯 发表于 2014-12-25 18:43
方便查看

谢谢
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 13:29 , Processed in 0.370245 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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