VBA代码所需

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