qq_39282993 2018-12-04 13:48 采纳率: 0%
浏览 1183
已采纳

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条回答 默认 最新

  • 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
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 Arcgis相交分析无法绘制一个或多个图形
  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
  • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误
  • ¥30 3天&7天&&15天&销量如何统计同一行
  • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)