excel - 引用单元格但保留源单元格文本的格式

Question

我有一个单元格，里面有一些文本。假设单元格 A1。

该文本以某种方式格式化 - 前几个单词是粗体、换行、不同的字体大小等

当我引用此单元格时，例如在单元格 B1 中:

=A1

在 B1 中，我只得到一长串文本，其中没有 A1 上存在的格式

有没有办法引用并保留格式？

我可以使用格式刷，它会识别单元格内的换行符，但仍然无法识别部分粗体书写等方面。

Answer 1

根据我的评论:

Private changing As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Target.Address = [A1].Address Or changing Then Exit Sub
    changing = True
    [A1].Copy [B1]
    changing = False

End Sub

上面的代码意味着每当对单元格 A1 进行任何更改(具体 A1 - 这样，代码就不会每次在您的单元格发生更改时执行工作表 - 这样做会减慢一切)，A1 中的任何内容都会复制到 B2

用法

<小时/>

使用时，只需

• 右键点击工作表名称(底部的选项卡)，然后选择“查看代码”
• 将代码粘贴到
• 将任何单元格引用更改为您想要的单元格引用(即将 [A1] 替换为 [A3]、[A1:A4] 或 [blah](即命名单元格/范围)，具体取决于您的需要)
• 关闭窗口。要保存工作簿，如果您想保留宏，则必须另存为 .xlsm 或 .xlb

注释

<小时/>

• [A1] 是 ThisWorkbook.ActiveSheet.Range ("A1") 的简写。通常我建议不要使用它，因为 ActiveSheet 意味着如果代码在 ThisWorkbook 中的任何工作表上运行，它将复制并粘贴该工作表的 A1 和 B1 ，而您可能只需要特定工作表上的特定单元格。
  • 但是在本例中，代码仅适用于 1 张纸，因此这不是问题。
• 所有 changing 内容都是必需的，因为复制/粘贴会触发更改事件；即宏会一遍又一遍地自行触发，直到 Excel 停止它 - 这并不理想!我声明的 changing 变量只是充当停止程序执行本身的信号。