用VBA在指定行写入判断语句

lucasmnp

各位前辈，老师，早上好

小生有一疑难.......不疲奋斗到天亮，还望赐教！！！

用VBA在指定行写入判断语句，在指定行输出结果..条件为A14=B14,则C14为空，如果A14不等于B14，则C14为"NO"...如此类推，直至行尾

备注，不用条件格式，不用函数，只用VBA，因小生想保持画面清洁，给老板一点好印象，祝各位身体健康，财源滚滚，小生谢过！

lucasmnp

各位前辈，老师，早上好

小生有一疑难.......不疲奋斗到天亮，还望赐教！！！

用VBA在指定行写入判断语句，在指定行输出结果..条件为A14=B14,则C14为空，如果A14不等于B14，则C14为"NO"...如此类推，直至行尾

备注，不用条件格式，不用函数，只用VBA，因小生想保持画面清洁，给老板一点好印象，祝各位身体健康，财源滚滚，小生谢过！

lucasmnp

自己顶一下！！#@~！

ykqrs

1. Sub Macro1()
   
2. Dim i%, arr, c%
   
3. c = Cells(14, Columns.Count).End(1).Column
   
4. arr = Range(Cells(14, 1), Cells(16, c))
   
5. For i = 1 To c
   
6.     If arr(1, i) <> arr(2, i) Then arr(3, i) = "no"
   
7. Next
   
8. Range(Cells(14, 1), Cells(16, c)) = arr
   
9. End Sub

复制代码

huang1314wei

Sub Macro1()
    Dim i, j
    i = Cells(14, 256).End(xlToLeft).Column
    For j = 1 To i
        If Cells(14, j).Value <> Cells(15, j).Value Then
            Cells(16, j).Value = "no"
        End If
    Next
End Sub

lsc900707

1. Sub Macro1()
   
2.     arr = [a14:eq16]
   
3.     For j = 1 To UBound(arr, 2)
   
4.         If arr(1, j) = arr(2, j) Then arr(3, j) = "" Else arr(3, j) = "NO"
   
5.     Next
   
6.     [a14:eq16] = arr
   
7. End Sub

复制代码

lucasmnp

ykqrs 发表于 2018-8-11 07:52

谢谢前辈，谢谢老师，祝您工作顺利，财源滚滚，小生在此拜谢！！！

鄂龙蒙

1. Sub Macro1()
   
2.     Dim a, ar, i
   
3.     Rows(16).Delete
   
4.     a = Cells(14, Columns.Count).End(xlToLeft).Column
   
5.     ar = Range(Cells(14, 1), Cells(16, a))
   
6.     For i = 1 To UBound(ar, 2)
   
7.         If ar(1, i) <> ar(2, i) Then ar(3, i) = "no"
   
8.     Next
   
9.     [A14].Resize(3, UBound(ar, 2)) = ar
   
10. End Sub

复制代码

lucasmnp

huang1314wei 发表于 2018-8-11 07:55
Sub Macro1()
    Dim i, j
    i = Cells(14, 256).End(xlToLeft).Column

谢谢前辈，谢谢老师，祝您工作顺利，财源滚滚，小生在此拜谢！！！

lsc900707

lucasmnp 发表于 2018-8-11 08:05
谢谢前辈，谢谢老师，祝您工作顺利，财源滚滚，小生在此拜谢！！！

整这些没用的，直接“评分”呀！