[已解决]VBA判断问题

龙送农

VBA判断问题：当T列单元格显示“不相符”时，保留S列相对应单元格的数据；当T列单元格显示“相符”时，将对应S列单元格的数据删除。如：T5是“不相符”则保留S5的数据，T5是“相符”则删除S5的数据，依此类推，如附件。

Sub th()
    Dim i%, r%, arr
    r = Range("s65536").End(xlUp).Row
    arr = Range("s1:t" & r)
    For i = 1 To r
        If arr(i, 2) = "相符" Then arr(i, 1) = ""
         If arr(i, 2) = "相符" Then arr(i, 2) = ""
    Next
    Range("s1:t" & r) = arr
End Sub

最佳答案

月排行榜 / 总排行榜

yuhe0008

2016-2-17 12:43

Sub th()
    Dim i%, r%, arr
    r = Range("s65536").End(xlUp).Row
    arr = Range("s1:t" & r)
    For i = 1 To r
        If arr(i, 2) = "相符" Then arr(i, 1) = ""
    Next
    Range("s1:t" & r) = arr
End Sub

跳转到最佳答案楼层

scl5801

Sub shan()
     Dim arr(), r%, rn As Range
     Set rn = Range("s5").CurrentRegion
     s = rn.Count / 2
     ReDim arr(1 To s, 1 To 2)
     For r = 1 To s
         If rn(r, 2) = "不相符" Then
             i = i + 1
             arr(i, 1) = rn(r, 1): arr(i, 2) = rn(r, 2)
         End If
     Next
     rn.Clear
     Range("s5").Resize(i, 2) = arr
End Sub

yuhe0008

Sub th()
    Dim i%, r%, arr
    r = Range("s65536").End(xlUp).Row
    arr = Range("s1:t" & r)
    For i = 1 To r
        If arr(i, 2) = "相符" Then arr(i, 1) = ""
    Next
    Range("s1:t" & r) = arr
End Sub

龙送农

yuhe0008 发表于 2016-2-17 12:43
Sub th()
    Dim i%, r%, arr
    r = Range("s65536").End(xlUp).Row

感谢老师，正是我所要的结果。麻烦您加一点：就是对应S列单元格的数据删除同时将T列“相符”也删除。