[已解决]如何定位空白单元格正上方单元格？

xiaox0124

如何定位空白单元格正上方单元格？见附件（蓝色单元格-空白）上方单元格如何定位？

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-2 09:17

第二天打包，共 家（2）捡货单2.rar (17.82 KB, 下载次数: 8)

2015-12-2 09:15 上传

点击文件名下载附件


Sub Click()
    Dim A, rng As Range, i, j

    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        For j = 5 To UBound(A, 2)
            If A(i, j) = "" Then
                If rng Is Nothing Then
                    Set rng = Cells(i - 1, j)
                Else
                    Set rng = Application.Union(rng, Cells(i - 1, j))
                End If
            End If
        Next j
    Next i
    rng.Select
End Sub


没想出技巧的方法。

跳转到最佳答案楼层

爱疯

手机路过看不到，能发个截图吗

xiaox0124

爱疯 发表于 2015-12-1 22:08
手机路过看不到，能发个截图吗

就是如何定位空白单元格正上方单元格？批量定位

爱疯

第二天打包，共 家（2）捡货单2.rar (17.82 KB, 下载次数: 8)

2015-12-2 09:15 上传

点击文件名下载附件


Sub Click()
    Dim A, rng As Range, i, j

    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        For j = 5 To UBound(A, 2)
            If A(i, j) = "" Then
                If rng Is Nothing Then
                    Set rng = Cells(i - 1, j)
                Else
                    Set rng = Application.Union(rng, Cells(i - 1, j))
                End If
            End If
        Next j
    Next i
    rng.Select
End Sub


没想出技巧的方法。

xiaox0124

爱疯 发表于 2015-12-2 09:17
Sub Click()
    Dim A, rng As Range, i, j

貌似也只能用这个方法了。谢谢大神。

sry660

用特殊单元格定位也不错呢

1. Sub 选取指定单元格()
   
2.     Sheets("Sheet1").Range("e1:ao68").SpecialCells(xlCellTypeBlanks).Offset(-1, 0).Select
   
3. End Sub

复制代码