Question

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

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）。

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

由于

Answer 1

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

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

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

1 个答案: