Frage : Makro zum Vorwählen Daten

In der angebrachten Excel-Akte enthält Sheet1 Daten, und Sheet2 enthält eine Liste von Zahlen in Spalte A.  Ein Makro ist erforderlich, jede Zahl in Sheet2 Spalte A zu betrachten und ein Gleiches auf Sheet1 Spalte A. zu finden.  Wenn ein Gleiches gefunden, die Daten (gefunden auf Sheet1) in Bezug auf diese Zahl auf zu Sheet3. kopieren
Attachments:

Antwort : Makro zum Vorwählen Daten

Hallo Rishi,

Das folgende Makro versuchen.


Mich informieren, wenn Sie irgendwelche Ausgaben haben,

- Ardhendu
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Wahl ausdrücklich

VorMacro4 ()

Schwaches ws1     als Arbeitsblatt, _
    ws2     als Arbeitsblatt, _
    ws3     als Arbeitsblatt, _
    lst1    als ganze Zahl, _
    lst2    als ganze Zahl


Einstellen ws1 = Blätter („Sheet1“)
Einstellen ws2 = Blätter („Sheet2“)
Einstellen ws3 = Blätter („Sheet3“)

lst1 = ws1.Cells (65536, „A“). Ende (xlUp). Reihe
lst2 = ws2.Cells (65536, „A“). Ende (xlUp). Reihe

ws1.Range („A1: F-“ u. lst1) .AdvancedFilter Tätigkeit: =xlFilterCopy, CriteriaRange: =ws2.Range („A1: “ U. lst2), _
    CopyToRange: =ws3.Columns („A: F“), einzigartig: =True
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us