Question

比较不同纸张中的两个单元格所需的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

Answer 1

此代码将检查不同工作表中的列，并将它们放在第三个工作表中。您可以对其进行修改以满足您的需求：

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

需要VBA代码

1 个答案: