不同区域最后非空行怎么写?

一点不自在

用  LR=SHEET1.RANG("A65536").END(XLUP).ROW   可以让数据逐行填充
现在SHEET1中有A1:A50    A60:A90     A100:A130   等几个区域,如何写每个区域的最后行?使数据能根据要求在不同区域中逐行填充?

[ 本帖最后由 一点不自在 于 2010-9-18 07:34 编辑 ]

yaozong

Private Sub CommandButton1_Click()
For i = 1 To [A65536].End(3).Row
If Cells(i, 1) <> "" And Application.CountA(Cells(i, 1).Resize(2, 1)) = 1 Then MsgBox i
Next
End Sub

zhangjimfu

FOR EACH循环

yaozong

续2楼，试编个附件（参考）。

一点不自在

原帖由 yaozong 于 2010-9-18 08:40 发表
续2楼，试编个附件（参考）。

也许是我表达不对,其实我想解决这个问题请看附件

zhangjimfu

Private Sub CommandButton1_Click()
      Dim i As Integer
      Dim row1 As Integer
      Dim row2 As Integer
      Dim row3 As Integer
      row1 = 2
      row2 = 21
      row3 = 35
      i = 2
      With Sheet2
             Do While .Cells(i, 1) <> ""
                        Select Case .Cells(i, 1)
                                    Case Is = "部门1"
                                               Sheet1.Cells(row1, 2) = .Cells(i, 1)
                                               Sheet1.Cells(row1, 3) = .Cells(i, 2)
                                               row1 = row1 + 1
                                    Case Is = "部门2"
                                               Sheet1.Cells(row2, 2) = .Cells(i, 1)
                                               Sheet1.Cells(row2, 3) = .Cells(i, 2)
                                               row2 = row2 + 1
                                    Case Is = "部门3"
                                               Sheet1.Cells(row3, 2) = .Cells(i, 1)
                                               Sheet1.Cells(row3, 3) = .Cells(i, 2)
                                               row3 = row3 + 1
Default:
                                    
                         End Select
                         i = i + 1
             Loop
      End With
End Sub

一点不自在

谢谢zhangjimfu 老师,试了一下果然符合要求,学到了一个思路
Do While .Cells(i, 1) <> ""请解释一下这句的意思
还有Default:这一条起什么作用呢?

[ 本帖最后由 一点不自在 于 2010-9-18 16:30 编辑 ]

zhangjimfu

表示默认，前面三个条件都不满足就执行这句代码

yaozong

原帖由 一点不自在 于 2010-9-18 15:48 发表

也许是我表达不对,其实我想解决这个问题请看附件

如部门不确定或更多时，不访试一下全自动分类。
参考附件。

yaozong

对9楼附件中代码作了更新（程序结果是一致的）
（添加了粘贴点的判定，免除了删除表首空白行之操作）