[已解决]判断非空值在另一列运行代码

ljf708

如何判断A列不为空时，运行下面的代码得到B列的结果。

Sub ww()
arr = Array("工资", "性别", "年龄", "职业")
For i = 1 To Range("A65536").End(xlUp).Row
     n = ((i - 1) \ 1) Mod 4
     Cells(i, "B") = arr(n)  ‘如何修改代码？
next i
End Sub
A               B
1        工资
2        性别
3        年龄
       

2        职业
3        工资


2        性别
3        年龄

请高手帮帮忙。谢谢！

[此贴子已经被作者于2010-5-18 18:44:46编辑过]

最佳答案

月排行榜 / 总排行榜

枯禅

2010-5-18 19:11

猜一下楼主的意思:

Sub ww()
arr = Array("工资", "性别", "年龄", "职业")
For i = 1 To Range("A65536").End(xlUp).Row
    If Len(Cells(i, 1)) Then
        Cells(i, "B") = arr(n Mod 4)  '‘如何修改代码？
        n = n + 1
    End If
Next i
End Sub

跳转到最佳答案楼层

linyaya

不知道你要做什么，给上附件吧

ljf708

已上传附件

aZ6VgO7K.rar (6.52 KB, 下载次数: 4)

2010-5-18 18:55 上传

点击文件名下载附件
判断非空值在另一列运行代码

枯禅

猜一下楼主的意思:

Sub ww()
arr = Array("工资", "性别", "年龄", "职业")
For i = 1 To Range("A65536").End(xlUp).Row
    If Len(Cells(i, 1)) Then
        Cells(i, "B") = arr(n Mod 4)  '‘如何修改代码？
        n = n + 1
    End If
Next i
End Sub

ljf708

非常感谢！