根据单元格值将数据从一张表复制并粘贴到另一张表

Question

嘿伙计们，我有一个问题，正如标题中简要说明的那样。 具体来说，我每天都有订单，我需要根据“交付提供商”和“渠道”列将它们放在不同的工作表上。 图片说明在这里

我之前创建了一个用户表单，但我必须根据 del 提供者和渠道将我的数据表分成几张表，然后使用代码

lr = sh1.Cells(Rows.Count, 1).End(xlUp).Row

sh1.Range("A2:A" & lr).Copy Destination:=sh2.Range("B2")

将所有列一一复制并粘贴到每张纸上。

但实际上我有很多提供者（6 个或更多），这使得它非常耗时。

所以我关心的是如何根据 2 列将它们复制并粘贴到所需的工作表中。

我偶然发现我可以将“数据”中的每一列作为源列，并将“ems_by_sea”中的每一列和其他列作为目标/目标列，然后执行 FOR/NEXT 语句。 但我不知道如何在不同的工作表中使用 CONST ......

const firstrow = 2
const soucol_provider = sh1.cells("E"), soucol_channel = sh1.cells("F")

我试图这样做，但 VBA 响应错误

Application.screenupdating = False
For i = firstrow to lr
If Sh1.Cells(i, soucol_provider).Value = "EMS" and Sh1.Cells(i, soucol_channel).Value = "by air" Then 

#将当前行中的数据复制并粘贴到工作表“ems_by_air” nex 我不知道是否有更好的方法来实现这一点......你们能对此有所了解吗？FIY：这不仅仅是复制和粘贴由于每个工作表中的列顺序不同，因此工作表的确切数据。

Answer 1

作为 scope 的一部分，您可以select为您的目标电子表格提供一个案例，例如：

dim destSheet as worksheet
Select case true
    case deliveryProvider = "X" and channel="Y"
        set destSheet = sheets(1)
    case deliveryProvider = "A" and channel="B"
        set destSheet = sheets(2)
End select
With destSheet
    'use .notation
End with

您可以设置您认为合适的条件，以说明您的因素/变量的数量。