excel vba 单元格加上固定值(考虑遇空值继续运行)

来源：百度知道 编辑：UC知道 时间：2024/06/18 12:48:04
需要考虑到.遇到空值.继续运行.

前提条件.
A1=5
A2=3
A3=
A4=1
A5=1

固定值=9

以上各列加上任意值.加上一个固定值.
A1=59
A2=39
A3=9
A4=19
A5=19

那么有尽头吗？如果是加到最后一个非空单元格。
Sub 加九()
j = [a65536].End(xlUp).Row
For i = 1 To j
Cells(i, 1) = Cells(i, 1) & 9
Next
End Sub

如果加到最后一个单元格。
Sub 加九()
For i = 1 To 65536
Cells(i, 1) = Cells(i, 1) & 9
Next
End Sub

0分
Sub aaa()
For i = 1 To 5
If Cells(i, 1) <> "" Then
Cells(i, 1) = Cells(i, 1) & "9"
End If
Next
End Sub