怎样才能只复制计算结果不为""（即真空或假空）的有数字区域？

WYS67

E5:E122里已输入了函数公式。要对E5开始，计算结果<>""(真空或假空)的最后行为止，有数字显示的计算结果区域进行复制操作，代码如下：
Sub 复制E列()
lr = Range("E11045876").End(3).Row
Range("E5:E" & lr).Select
Selection.Copy
End Sub



应该选定需要复制区域是E5:E19（E19是<>""的计算结果最后行），为什么点击按钮后，复制区域却变成了公式输入的区域E5:E122。

怎样修改代码，才能只复制计算结果不为""（即真空或假空）的区域（即E5:E19）?

WYS67

经过老师帮忙，修改后的代码如下：

Sub 复制E列()
lr = [E1045786].End(3).Row
For i = 3 To lr
    If Cells(i, 5).Text <> "" Then
    lrr = i
    End If
Next
Range(Cells(5, 5), Cells(lrr, 5)).Select
Selection.Copy
End Sub


请老师们看看，还需优化吗？

maditate

问题的关键是什么叫作“真空”，什么又是“假空”.两都的标准搞明白了，后面的代码就好写了，不然就算你写对了也是蒙对的。

WYS67

maditate 发表于 2019-5-30 13:04
问题的关键是什么叫作“真空”，什么又是“假空”.两都的标准搞明白了，后面的代码就好写了，不然就算你写 ...

老师说的十分正确！严谨地说：只可以复制E5：E列计算结果<>""的最后行？

老师，看看二楼的代码是否还有优化的余地？

maditate

一个班50个同学，初步确认名册上前25位已经在教室里，现在需要十分明确的后面到底还有多少同学没在教室里。此时你打开点名册，是从前面开始点名省时呢，还是从后面开始点名省时？

WYS67

maditate 发表于 2019-5-30 13:18
一个班50个同学，初步确认名册上前25位已经在教室里，现在需要十分明确的后面到底还有多少同学没在教室里。 ...

不明白老师说的意思？按说是一样的吧？

maditate

WYS67 发表于 2019-5-30 13:24
不明白老师说的意思？按说是一样的吧？

循环可能到序。没必要从3往后查，可以从最后一行往前查。

WYS67

maditate 发表于 2019-5-30 13:26
循环可能到序。没必要从3往后查，可以从最后一行往前查。

谢谢老师提供思路。如果从最后一行往前查，代码应该怎样写？

maditate

未经测试


Sub 复制E列()
lr = [E1045786].End(3).Row
For i = lr To 3 Step -1
    If Cells(i, 5).Text <> "" Then
      lrr = i
      Exit For
    End If
Next
Range(Cells(5, 5), Cells(lrr, 5)).Select
Selection.Copy
End Sub

WYS67

maditate 发表于 2019-5-30 13:37
未经测试

非常谢谢老师编写代码！