Question

我编写下面的代码，我将一个列从一个工作表导入另一个，但它只是粘贴我的值。我想它也会导入细胞功能。

Sheets("Plan Traitement Risque").Range("B6").Select
lRow = Worksheets("Analyse de risque").Range("B6").End(xlDown).Row
 Worksheets("Analyse de risque").Range("B6:B" & lRow).Copy Destination:=Sheets("Plan Traitement Risque").Range("B6:B" & lRow)

Answer 1

只需在范围的末尾添加“功能”在下面的代码中：

Sheets("Plan Traitement Risque").Range("B6").Select
    lRow = Worksheets("Analyse de risque").Range("B6").End(xlDown).Row
     Sheets("Plan Traitement Risque").Range("B6:B" & lRow) = Worksheets("Analyse de risque").Range("B6:B" & lRow).Formula

而不是复制我使用'='，因为你只粘贴一次。

导入单元格功能

1 个答案: