在线等。。。自动取每一行最后一个非空的数值

sishen1254

小妹加班痛苦，求助高手们了，YTD那一列的3、4、7、8、9行想自动取每一行最后一个非空的数值，在线等。。。看了半天帖子也没懂公式，所以直接传excel等成果了。。

bajifeng

取出来的数据放在哪里？

sishen1254

bajifeng 发表于 2015-12-30 19:52
取出来的数据放在哪里？

YTD对应的列的数据取后面D到O列最新的数据，例如C3现在需要取E3的值，多谢

kgouy

1. =LOOKUP(9E+307,B2:O2)

复制代码

bajifeng

1. Sub db()
   
2. Dim arr(1 To 5)
   
3. arr(1) = Cells(3, [a3].End(2).Column)
   
4. arr(2) = Cells(4, [a4].End(2).Column)
   
5. arr(3) = Cells(7, [a7].End(2).Column)
   
6. arr(4) = Cells(8, [a8].End(2).Column)
   
7. arr(5) = Cells(9, [a9].End(2).Column)
   
8. [a12].Resize(5) = Application.Transpose(arr)
   
9. End Sub

复制代码

sishen1254

bajifeng 发表于 2015-12-30 19:59

谢谢高手！

bajifeng

>>>>>>>>>>>>>

bajifeng

》》》》》》》》》》

sishen1254

bajifeng 发表于 2015-12-30 19:59

要录个宏？

xianwei67842297

p2单元格公式：

1. =LOOKUP(9E+307,B2:O2)

复制代码

excel home求助111.zip (12.36 KB, 下载次数: 23)

2015-12-30 20:02 上传

点击文件名下载附件