Excel 复制单个单元格内容并将其格式化到新单元格

我试图创建一个代码，当选择一个特定的点击框时，特定单元格的内容会被复制到新页面上的一个新单元格中。我目前拥有的代码是：

Sub CBCR71b_Click()
If ActiveSheet.CheckBoxes("CBCR71b").Value = 1 Then
Sheets("ELA Output").Range("CR7.1b").Value = Sheets("ELA").Range("cr1b").Value
Else
Sheets("ELA Output").Range("CR7.1b").Value = ""
End If

如果我只想复制单元格的值，那么这很好。在这个项目中，这将是文本。但是现在我需要能够移动一些有粗体或斜体字的文本。上面的代码忽略了这一点

本网站上的其他类似问题涉及一系列单元格，因此我不确定clickbox是否正在运行。我尝试过用.font.bold替换.value，但是什么也没发生

---

任何帮助都将不胜感激

您可以使用AdvancedFilter将数据复制为：

Sub copyAdvancedFilter()

Dim rnSource As Range
Dim rnTarget As Range

    Set rnSource = Range("A1:A2")
    Set rnTarget = Range("C1:C2")

    rnSource.AdvancedFilter Action:=xlFilterCopy, _
                                CopyToRange:=rnTarget
End Sub

调整一下你的功能

请让我知道它是否有效

---

干杯wq

你可以试试：工作表复制目的地的东西。看到蒂姆昨天的答案了吗？抄袭了黑体字等等！非常感谢。我注意到的唯一一件事是，在输出页面上，我对边框进行了着色处理，以使打印版本看起来不错。Tim的代码去掉了输出单元格的边框。试试Santosh在那篇文章中的评论。也许你也可以尝试复制和粘贴，对此我深表歉意，但我对这一点非常陌生，不确定如何做到这一点。我是否将此代码放入现有代码中？另外，对于A1:A2的范围，我可以把像CR7.1b这样的单元的名称放进去吗？你好，保罗，我想你可能已经解决了。。。正当如果没有，请确认您提到的范围是否命名为“CR7.1b”。如果是，请将“SET”范围名称替换为范围名称，并将行“SheetsELA Output.RangeCR7.1b.Value=SheetsELA.Rangecr1b.Value”替换为代码：“rnSource.AdvancedFilter Action:=xlFilterCopy，CopyToRange:=rnTarget”，好吗？干杯