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