[已解决]自动向下寻找最近单元格然后向下覆盖

opec13

在某列中向下寻找特定单元格，将其右侧一格的数值向下覆盖，至另一个特定单元格右侧一格为止。跪求各位大侠指点。。 详见附件

最佳答案

月排行榜 / 总排行榜

爱疯

2013-11-7 16:20

原因：
判断条件被修改了（见粉色框）
应该和源表里的字符串一样才行（见红色框）
求助3.rar (19.95 KB, 下载次数: 4)

2013-11-7 16:20 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub Test()
    Dim A, i&, t$
   
    A = Sheets(1).Range("a1").CurrentRegion
    For i = 1 To UBound(A)
        If A(i, 1) = "P/No   :" Then t = A(i, 2)
        If t <> "" Then A(i, 2) = t
    Next i
   
    With Sheets(2)
        .Cells.Clear
        .Range("a1").Resize(UBound(A), UBound(A, 2)) = A
    End With
End Sub

opec13

爱疯 发表于 2013-11-7 15:10
Sub Test()
    Dim A, i&, t$
   

感谢版主大人回复，运行后在sheet2出现数据，似乎和原来数据一样没有变化。

爱疯

原因：
判断条件被修改了（见粉色框）
应该和源表里的字符串一样才行（见红色框）
求助3.rar (19.95 KB, 下载次数: 4)

2013-11-7 16:20 上传

点击文件名下载附件

opec13

爱疯 发表于 2013-11-7 16:20
原因：
判断条件被修改了（见粉色框）
应该和源表里的字符串一样才行（见红色框）

成功了~ 感谢万能的版主大人 哈哈