Pergunta : Macro para selecionar dados

Na lima unida de Excel, Sheet1 contem dados, e Sheet2 contem uma lista de números na coluna A.  Um macro é necessário olhar cada número Sheet2 na coluna A e encontrar um fósforo Sheet1 na coluna A.  Se um fósforo é encontrado, copiar os dados (encontrados em Sheet1) em relação a esse número a Sheet3. class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >Test.zip " fileSize " > (579 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
class= " descrição " >Tesst
do
o class= de
do >
class= do

Resposta : Macro para selecionar dados

Olá! Rishi,

Tentar o seguinte macro.


Deixar-me saber se você tem quaisquer edições,

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

Opção explícita

Macro4 secundários ()

Ws1 não ofuscante     como a folha, _
    ws2     como a folha, _
    ws3     como a folha, _
    lst1    como o inteiro, _
    lst2    como o inteiro


Ajustar ws1 = folhas (“Sheet1”)
Ajustar ws2 = folhas (“Sheet2”)
Ajustar ws3 = folhas (“Sheet3”)

lst1 = ws1.Cells (65536, “A”). Extremidade (xlUp). Fileira
lst2 = ws2.Cells (65536, “A”). Extremidade (xlUp). Fileira

ws1.Range (“A1: Ação de F” & de lst1) .AdvancedFilter: =xlFilterCopy, CriteriaRange: =ws2.Range (“A1: ” & lst2), _
    CopyToRange: =ws3.Columns (“A: F”), original: =True
Submarino da extremidade
Outras soluções  
 
programming4us programming4us