Excel 如何将列表从一个单元格复制到另一个单元格_Excel_Vba

Excel 如何将列表从一个单元格复制到另一个单元格

excel vba

Excel 如何将列表从一个单元格复制到另一个单元格,excel,vba,Excel,Vba,我有这个功能，可以将工作表复制到另一个工作簿 Public Function copierFeuilleDeA(fromWb As Workbook, fromFeuille As String, toWb As Workbook, toFeuille As String) As Boolean copierFeuilleDeA = True On Error GoTo errorHandler fromWb.Worksheets(fromFeuille).Cell

我有这个功能，可以将工作表复制到另一个工作簿

Public Function copierFeuilleDeA(fromWb As Workbook, fromFeuille As String, toWb As Workbook, toFeuille As String) As Boolean

    copierFeuilleDeA = True

    On Error GoTo errorHandler

    fromWb.Worksheets(fromFeuille).Cells.Copy

    toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
    toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteValues
    toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteFormats
    toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteFormulas

    Application.CutCopyMode = False
    toWb.Worksheets(toFeuille).Activate
    toWb.Worksheets(toFeuille).Range("A1").Select

    Exit Function

errorHandler:
    copierFeuilleDeA = False
    MsgBox Err.Number & " : " & Err.Description
End Function

该函数工作得很好，它复制值、格式、列宽和公式，但不复制单元格F26中的列表（列表项为0、1、2、3、4、5）

那么如何让这个函数复制列表呢

谢谢

您还需要粘贴数据验证列表

toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteValidation