Excel精英培训网

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

[已解决]如何用VBA在指定行里,找到最后一个有值行的数据

[复制链接]
发表于 2016-3-25 16:46 | 显示全部楼层 |阅读模式
本帖最后由 h284124405 于 2016-3-26 08:22 编辑

比如:   我指定A2到A20行.   如果A2到A10有值.   那A1就等于A10里面的值.

           A1值等于A2至A20最后有数据的一行的值.
   如:
          A1  =  2
          A2  =  20
          A3  =  15
          A4  =  22
          A5  =  100
          A6  =  2
          A7  =  空
          A8  =  空
           .............
          A20  =  空
最佳答案
2016-3-25 16:54
本帖最后由 爱疯 于 2016-3-25 16:57 编辑

Sub test()
    [a1] = IIf(Application.Count([a2:a10]) = 9, [a10], [a20].End(3))
End Sub


发表于 2016-3-25 16:54 | 显示全部楼层
Sub fz()
  [A1] = [A65535].End(xlUp).Value
End Sub
回复

使用道具 举报

发表于 2016-3-25 16:54 | 显示全部楼层    本楼为最佳答案   
本帖最后由 爱疯 于 2016-3-25 16:57 编辑

Sub test()
    [a1] = IIf(Application.Count([a2:a10]) = 9, [a10], [a20].End(3))
End Sub


回复

使用道具 举报

 楼主| 发表于 2016-3-25 17:16 | 显示全部楼层
谢谢两位大师.
[a1] = IIf(Application.Count([a2:a10]) = 9, [a10], [a20].End(3))

我想学习下,这句是什么意思呢? 特别是 = 9, [a10], [a20].End(3))
回复

使用道具 举报

 楼主| 发表于 2016-3-25 17:17 | 显示全部楼层
02761752696 发表于 2016-3-25 16:54
Sub fz()
  [A1] = [A65535].End(xlUp).Value
End Sub

Sub fz()
  [A1] = [A20].End(xlUp).Value
End Sub

这样就可以.谢谢
回复

使用道具 举报

发表于 2016-3-25 17:45 来自手机 | 显示全部楼层
h284124405 发表于 2016-3-25 17:16
谢谢两位大师.
[a1] = IIf(Application.Count([a2:a10]) = 9, [a10], [a20].End(3))


可先学习一个单元格或一片单元格区域的表达方式。这样,遇到类似问题后,就能自己解决了。手机不好敲解释,等其它同学来帮你吧
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 14:58 , Processed in 0.429128 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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