Vba 如何在Excel工作表中实现条件单元格复制

我们有一份报告，该报告识别了（示例）A1“270002”中的客户编号和B1“4K Cartage，Inc.的名称，后面是采购订单编号。
我需要将A1和B2和“复制”到新的J和K列中。
然而，如果你看到下面，每个客户列表是不同的…我的整个工作表超过75000行。一些客户有5条记录，其他的有几百条

任何事情都将不胜感激…谢谢

270002  4K CARTAGE, INC.                            
    VCINV   2/13/2014   Suspense    Invoice $0.00   $0.01   0   KG
    VCINV   3/6/2014    Suspense    Invoice $0.00   $0.01   0   JL
    VCINV   11/26/2014  Suspense    Invoice $0.00   $0.01   0   JK
REMOVE  APCM    12/11/2014  Next Run    Credit Memo $0.00   $0.03-  0   LD
10000   A & S SERVICES GROUP, LLC                           
80000031A   VCINV   3/20/2014   03/07/14    4021225 $0.00   $927.50 0   KG
80000041A   VCINV   3/20/2014   03/07/14    4021974 $0.00   $927.50 0   KG
80000049A   VCINV   3/20/2014   03/07/14    1402049302  $0.00   $656.25 0   KG
80000065A   VCINV   4/10/2014   04/13/14    4022480 $0.00   $927.50 0   JB
80000068A   VCINV   4/10/2014   04/13/14    4022331 $0.00   $927.50 0   JB
80000066A   VCINV   4/10/2014   04/06/14    4022347 $0.00   $932.50 0   JB
80000074A   VCINV   4/10/2014   04/06/14    4022532 $0.00   $286.50 0   JB
80000075A   VCINV   4/10/2014   04/06/14    4022534 $0.00   $286.50 0   JB
80000107A   VCINV   4/10/2014   04/13/14    4022740 $0.00   $586.75 0   JB
80000116A   VCINV   4/10/2014   04/06/14    4023306 $0.00   $585.75 0   JB
80000117A   VCINV   4/10/2014   04/06/14    4023308 $0.00   $585.75 0   JB
80000118A   VCINV   4/10/2014   04/06/14    4023307 $0.00   $585.75 0   JB
80000119A   VCINV   4/10/2014   04/06/14    4023309 $0.00   $585.75 0   JB
80000120A   VCINV   4/10/2014   04/13/14    4023304 $0.00   $585.75 0   JB
80000121A   VCINV   4/10/2014   04/13/14    4023305 $0.00   $558.75 0   JB
80000130A   VCINV   4/10/2014   04/20/14    4023651 $0.00   $585.75 0   JB
80000132A   VCINV   4/10/2014   04/20/14    4023650 $0.00   $595.75 0   JB

用公式：

=IF(ISERROR(MATCH("$*",$A1:$I1,0)),A1,"")

---

请对您的数据样本应用适当的格式，显示您的代码，并将问题缩小到有问题的部分。感谢并问候您，您尝试了什么？向我们显示您的代码以及您遇到问题的确切位置。