需要VBA代码

比较不同工作表中的两个单元格所需的VBA代码，如果匹配，则将第一个工作表数据水平复制到第二个工作表（匹配单元格前面）

如表1所示

Date                Party Name            Amount
23-12-15            Adani                 150000
                    Shree cement          200000
                    Jindal                100000
                    Mittal                50000

第2页

01-12-15
05-12-15
10-12-15
20-12-15
23-12-15

如果表2数据与表1匹配（日期）

所需输出

01-12-15
05-12-15
10-12-15
20-12-15
23-12-15  Adani 150000  shree cement 200000  Jindal 100000 Mittal 50000

---

此代码将检查不同工作表中的列，并将它们放在第三个工作表中。您可以修改它以执行所需操作：

dim idx1 as integer
dim idx2 as integer
dim idx3 as integer
idx1 = 2
idx3 = 1
while sheets("Sheet1").Range("A" + Cstr(idx1)).Value <> "" 
    idx2 = 2
    while sheets("Sheet2").Range("B" + Cstr(idx2)).Value <> ""
        if sheets("Sheet1").Range("A" + Cstr(idx1)).Value = sheets("Sheet2").Range("B" + Cstr(idx2)).Value then
            idx3 = idx3 + 1
            sheets("Sheet3").Range("C" + Cstr(idx3)).value = sheets("Sheet1").Range("A" + Cstr(idx1)).Value
        endif
        idx2 = idx2 + 1
    wend
    idx1 = idx1 + 1
wend

dim idx1作为整数
作为整数的dim idx2
将idx3设置为整数
idx1=2
idx3=1
而板材（“板材1”）。范围（“A”+Cstr（idx1））。值“”
idx2=2
而板材（“板材2”）。范围（“B”+Cstr（idx2））。值“”
如果板材（“板材1”）.范围（“A”+Cstr（idx1））.值=板材（“板材2”）.范围（“B”+Cstr（idx2））.值，则
idx3=idx3+1
板材（“板材3”）。范围（“C”+Cstr（idx3））。值=板材（“板材1”）。范围（“A”+Cstr（idx1））。值
恩迪夫
idx2=idx2+1
温德
idx1=idx1+1
温德

excel中的数据是否与上面的完全相同？每个日期可以有多少个参与方名称？显示您的代码。您需要修改我的代码以满足您的需要。如果我们看到您的代码，我们可能会找出问题所在。