根据某列相同，指定选择行

fcdd

根据某列最后相同行数  B列、C列、D列、E列、自动选择

如：F列最后6行相同,B列、C列、D列、E列、自动选择6行
如：F列最后8行相同,B列、C列、D列、E列、自动选择8行
如：F列最后1行相同,B列、C列、D列、E列、自动选择1行


附件内有图片

大灰狼1976

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim arr, i&
   
3. arr = Range("f1:f" & [f65536].End(3).Row)
   
4. For i = UBound(arr) To 1 Step -1
   
5.   If arr(i, 1) <> arr(i - 1, 1) Then Exit For
   
6. Next i
   
7. Range(Cells(UBound(arr), 1), Cells(i, 5)).Select
   
8. End Sub

复制代码

大灰狼1976

不好意思，我把A列时间也选择了，请将下记代码：
Range(Cells(UBound(arr), 1), Cells(i, 5)).Select
改成：
Range(Cells(UBound(arr), 2), Cells(i, 5)).Select

fcdd

大灰狼1976 发表于 2013-6-27 18:24
附件请测试

大虾
想追加一个问题
如：F列最后6行相同,B列、C列、D列、E列、G列、H列、I列、自动选择6行
如：F列最后8行相同,B列、C列、D列、E列、G列、H列、I列、自动选择8行
如：F列最后1行相同,B列、C列、D列、E列、G列、H列、I列、自动选择1行

请帮帮忙修改一下可以吗？？？先在此谢谢

大灰狼1976

把：
Range(Cells(UBound(arr), 2), Cells(i, 5)).Select
改成：
Union(Range(Cells(UBound(arr), 2), Cells(i, 5)), Range(Cells(UBound(arr), 7), Cells(i, 9))).Select
试试，我没测试