CDR，写出VBA代码 选中对象，根据剪切板的数量和数字内容，对对象的数字进行生成和替换。 例如：选中的对象带有数字5，剪板后的内容是 1 8 9 10 ，那么就对数字5的位置，进行更换，就是生成4个新对象，生成的对象数字位置的内容，分别是1 8 9 10

CDR通常指的是Call Detail Records，在电信行业用于记录通信活动。然而，您提到的是VBA（Visual Basic for Applications）在Excel或Word等Microsoft Office应用程序中的应用，涉及到选择对象并根据剪贴板内容修改它们。

以下是VBA的一个基本示例，它会选择含有特定数字的对象（在这个例子中假设是数字"5"），然后将剪贴板中的数字按顺序插入到该对象旁边：

Sub ReplaceObjectNumbers()
    Dim obj As Shape ' 或者用Range如果是在工作表上
    Dim clipboardContent() As Variant
    Dim i As Long
    
    ' 获取剪贴板的内容，这里假设是从逗号分隔的文本获取
    Set clipboardContent = Split(ActiveSheet.Range("Clipboard").Value, ",")
    
    ' 遍历选定的对象（假设是Shape对象）
    For Each obj In Selection.ShapeRange
        If obj.HasText And obj.TextFrame.Characters(Start:=1, Length:=1).Text = "5" Then ' 如果对象包含数字5
            ' 清空原有的文本框
            obj.TextFrame.TextRange.Clear
            
            ' 根据剪贴板内容添加新的文本，每行一个数字
            For i = LBound(clipboardContent) To UBound(clipboardContent)
                obj.TextFrame.TextRange.InsertBefore Mid(clipboardContent(i), 1, 1)
            Next i
        End If
    Next obj
End Sub

这个脚本假设了剪贴板的内容是一个字符串，由逗号分隔的数字组成，并且是在当前活动的工作表范围内的。运行此宏时，会找到所有包含数字5的对象，并在其后依次插入剪贴板中的每个数字。