Question

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

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

如果我只想要复制的单元格的值，这可以正常工作。在这个项目中将是文本。但现在我需要能够移动文本，其中一些单词有粗体或斜体。上面的代码忽略了这一点。

此网站上的其他类似问题贯穿了一系列单元格，因此我不确定点击框是否正在运行干扰。我尝试用.font.bold替换.value，但后来没有任何反应。

任何帮助将不胜感激！

Answer 1

您可以使用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

将单个单元格内容和格式复制到新单元格

1 个答案: