如何理解非空单元格？

xuerfu

           If Worksheets("数据库").Cells(i, 27) = 1 Then     'i: “选择”按钮的点击次数
                '第一次选择时执行的语句：
                r = ListBox3.ListCount - 1  '列表框中总条目数
                For n = 0 To r  '循环列表框项目,找出列表中的第n个项目
                    m = m & ListBox3.List(n) & " "   '累计列表中的所有项目
                Next
                If r = -1 Then  '如果已选框为空
                    MsgBox "请依次选择体检科室→体检项目！"
                Else  '已选框有项目时
                   Set rng = Sheets("临时表").Cells(Rows.Count, 15).End(xlUp)   'O列的最后一个非空单元格。
                   Worksheets("临时表").Cells(1, 15) = m   '将已选框中的体检项目写入临时表(1行，15列)
                    MsgBox "该组体检项目成功保存！请继续进行下组体检项目的选择！"
                End If

            Else  '第二次选择时执行的语句
                Dim Msg As Integer
                Msg = MsgBox("是否需要修改数据?", vbYesNo)  '是、否
                If Msg = 6 Then  '选择了“是”
                        '清空行
                Else  '选择了“否”
                            '关闭对话框
                End If
            End If   
以上代码中：执行第一次时，M的值写入了O1。执行第二次写入时，数据为啥还是写在O1？因为第二次写入时，非空单元格应该在O2啊。
                   Set rng = Sheets("临时表").Cells(Rows.Count, 15).End(xlUp)   '第二次写入时非空单元格应该为O2
                   Worksheets("临时表").Cells(1, 15) = m   '第二次时、数据应该写入O2,为啥还是写在了O1？
谢谢！

2019032

Cells(Rows.Count, 15).End(xlUp)  的意思是      选中O列最后一个单元格，按 ctrl+↑  得到的单元格，你试试。

xuerfu

2019032 发表于 2015-6-30 09:22
Cells(Rows.Count, 15).End(xlUp)  的意思是      选中O列最后一个单元格，按 ctrl+↑  得到的单元格，你试 ...

如果O1有值，非空单元格就是O1.
如果O1-O5有值，非空单元格就应该是O5
这是我原来认识的。事实上他只能定位O1对吧？(End(xlDown)定位O65536)
请问如何实现上述功能？

ili

xuerfu 发表于 2015-6-30 09:43
如果O1有值，非空单元格就是O2.
如果O1-O5有值，非空单元格就应该是O6
这是我原来认识的。事实上他只 ...

非空：不为空，有值的单元格。
你O1有值，怎么变到O2非空有值了？

2019032

ili 发表于 2015-6-30 09:50
非空：不为空，有值的单元格。
你O1有值，怎么变到O2非空有值了？

O1有值，O2以下都没值，   O1叫O列最后一个非空单元格。
你是在讲什么概念？

2019032

xuerfu 发表于 2015-6-30 09:43
如果O1有值，非空单元格就是O2.
如果O1-O5有值，非空单元格就应该是O6
这是我原来认识的。事实上他只 ...

Cells(Rows.Count, 15).End(xlUp).offset(1,0)   我想这个是你要的。

xuerfu

ili 发表于 2015-6-30 09:50
非空：不为空，有值的单元格。
你O1有值，怎么变到O2非空有值了？

我是说：如果O1：O5有值，O6以下单元格为空，那么非空单元格就应该是O5  
怎么非空单元格还是O1?
是否可这样认为：End(xlUp)只能定位到第一行？   （End(xlDown)）定位到最后一行？

2019032

xuerfu 发表于 2015-6-30 10:00
我是说：如果O1：O5有值，非空单元格就应该是O6  
怎么非空单元格还是O1?
是否可这样认为：End(xlUp)只 ...

什么叫   非空，    不是空，      你是要有数据的最后一行的下一行单元格对吧。
Cells(Rows.Count, 15).End(xlUp).offset(1,0)   这个就对的。
你的代码  Worksheets("临时表").Cells(1, 15) = m   写死了  O1 = m。

xuerfu

2019032 发表于 2015-6-30 10:03
什么叫   非空，    不是空，      你是要有数据的最后一行的下一行单元格对吧。
Cells(Rows.Count, 15) ...

是的，我需要的就是在有数据的行的下一行续写数据。
Cells(Rows.Count, 15).End(xlUp).offset(1,0)   请问：这个第一行空了，怎么定位到了第二行？（要求数据从第一行开始写入）
Cells(Rows.Count, 15).End(xlUp).offset(-1,0)   修改成这样offset(-1,0)后报“运行时错误：1004”

ili

xuerfu 发表于 2015-6-30 10:00
我是说：如果O1：O5有值，O6以下单元格为空，那么非空单元格就应该是O5  
怎么非空单元格还是O1?
是 ...

"如果O1有值，非空单元格就是O1"
这是你自己在3楼说的话。


xlup   表示定位从指定单元格往下一个单元格开始的有数值或者公式的单元格
xldown  表示定位从指定单元格往上一个单元格开始的有数值或者公式的单元格
注： 如果从开始的单元格开始一直没有数据，则会定位到该列往对应方向的最后一个单元格。
例如： O1有值，O2以下没有。
[O65536].END(xlup) 会从O65535 开始往上找有数据的单元格， 那 就是找到了O1了。
[O1].END(XLDOWN) 会从O2开始往下找有数据的单元格，因为只有O1有数据，而O2开始都没有数据，所有找到了该列最后一个单元格O65536 。

看到键盘方向键上的"END" 键了吗？选中对应的单元格如果[O1].end(xldown) 就选中O1单元格，然后按一下END键，再按一下向下方向键(down)，跳到哪个就是 [O1].end(xldown) 的结果了。 XLUP 同理，只是方向键不同而已。