Excel VBA复制表没有链接到原始工作表

Question

我有两个excel文件; File_1和File_2。 File_1有两张; Sheet_A和Sheet_B。 File_2中的数据转换为Sheet_A（在File_1中）。

我有一个vba代码附加到Sheet_B中的按钮，该按钮将Sheet_A中的数据复制到Sheet_B中。代码工作正常，但它保留了来自File_1的链接。

我想复制数据并保留其格式而不保留链接。我怎样才能做到这一点？

我的代码中将Sheet_A中的数据复制到Sheet_B的部分如下：

    ' Check the Record Sheet to ensure the data is not already there
    Set CheckForDups = recordSht.Range(recordSht.Cells(1, 1), recordSht.Cells(1, lCol)).Find(What:=maxCustomerRng.Offset(-1, 0).Value, LookIn:=xlValues)

    ' If CheckForDups is Nothing then the date was not found on the record sheet. Therefore, copy the column
    If CheckForDups Is Nothing Then maxCustomerRng.EntireColumn.Copy Before:=recordSht.Cells(1, lCol + 1)

Answer 1

我认为您需要在目标上粘贴值：

If CheckForDups Is Nothing Then 
    maxCustomerRng.EntireColumn.Copy 
    recordSht.Cells(1, lCol + 1).PasteSpecial xlPasteValues
    recordSht.Cells(1, lCol + 1).PasteSpecial xlPasteFormats
End If

希望得到这个帮助。