qq_39282993
qq_39282993
2018-12-04 13:48
采纳率: 38.5%
浏览 1.1k
已采纳

vba判断A列非空则在B列非空行附上一个值

如:A列只有1,3,4,5行非空,所以在B列给1,3,4,5行赋值“hello”

        A列   B列
        1      hello

        3      hello
        4      hello

        5      hello
  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

1条回答 默认 最新

  • weixin_39416561
    lyhsdy 2018-12-05 02:08
    已采纳

    如果答案对你有帮助,请采纳下

    Sub hello()
    r = ThisWorkbook.Sheets(1).Range("A65535").End(xlUp).Row
    For i = 1 To r
        With ThisWorkbook.Sheets(1)
            If .Cells(i, 1) <> "" Then
                .Cells(i, 2) = "hello"
            End If
        End With
        Next
    End Sub
    
    
    点赞 评论

相关推荐