excel vba给空单元加入字符

Sub fz()

For Each Rng In [K5：Z5]

    If Rng.Text = "" Then

        Rng.Value = "A"

    End If

Next

End Sub

以上。

1、Excel每行末尾加符号：

假设数据在A列，B1=A1&“”，引号中间加需要的符号，向下复制公式即可。

2、Word每行末尾加符号：

如果每行都有回车的话，使用替换功能，将^p替换为^p#，#可以换成需要的任意字符。

或粘贴到excel，按照excel的方法 *** 作。

---