Excel VBA - 将格式化文本附加到单元格

Question

我需要在VBA中为单元格添加“填充底部”。

获得我需要的方法可能是在一个单元格中添加一个字体较小的字符（比如一个小点）在新行中。

如何在VBA中实现这一目标？

Answer 1

以下内容将“我的文字”插入A1范围，您可以根据需要进行调整。

它的工作原理如下：

1. 获取范围A1（lOldTextLen）
中的当前字符数
2. 将两个换行符和“my text”插入Range A1

3. 将范围A1中的字符更新为字体大小8，从上一个文本的末尾开始（使用lOldTextLen）

   Dim sText As String 
   Dim lOldTextLen As Long
   
   sText = "my text"
   lOldTextLen = Len(Range("a1"))
   
   Range("a1").Value = Range("a1").Value & vbNewLine & vbNewLine & sText
   
   Range("a1").Characters(lOldTextLen + 1).Font.Size = 8