Questione : Macro per selezionare i dati

Nella lima allegata di Excel, Sheet1 contiene i dati e Sheet2 contiene una lista dei numeri in colonna A.  Una macro è necessaria esaminare ogni numero Sheet2 in colonna A e trovare un fiammifero Sheet1 sulla colonna A.  Se un fiammifero è trovato, copiare i dati (trovati su Sheet1) per quanto riguarda quel numero a Sheet3. class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >Test.zip " fileSize " > (579 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
class= " descrizione " >Tesst
del
il class= di
del >
class= del

Risposta : Macro per selezionare i dati

Ciao Rishi,

Provare la seguente macro.


Lasciarlo sapere se avete qualunque edizioni,

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

Opzione esplicita

Macro4 secondari ()

Ws1 fioco     come manuale, _
    ws2     come manuale, _
    ws3     come manuale, _
    lst1    come numero intero, _
    lst2    come numero intero


Regolar ws1 = strati (“Sheet1„)
Regolar ws2 = strati (“Sheet2„)
Regolar ws3 = strati (“Sheet3„)

lst1 = ws1.Cells (65536, “A„). Estremità (xlUp). Fila
lst2 = ws2.Cells (65536, “A„). Estremità (xlUp). Fila

ws1.Range (“A1: Azione di lst1 &„ di F) .AdvancedFilter: =xlFilterCopy, CriteriaRange: =ws2.Range (“A1: „ & lst2), _
    CopyToRange: =ws3.Columns (“A: F„), unica: =True
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us