As shown in figure, EXCEL B (can choose a or B column data) of how to quickly get the EXCEL in a corresponding data? Please the great god teach

CodePudding user response:

Under the correct title is "VBA"

CodePudding user response:

Began keeping records in Excel macro, manual, complete the required function end record macros, press Alt + F11 key, check just record macro corresponding VBA code,

CodePudding user response:

Thanks, such copy macros for many times, is there a faster way

CodePudding user response:

 Sub copy () 
Dim RNG As Range, ws As Worksheet 
Set the ws=Workbooks (" EXCELA. XLSX "). The Worksheets (1) 
For Each RNG In Range (ws) [a1], ws. [a1]. End (4)) 
If RNG=[a1] Then RNG. Offset (0, 1). Copy [a65536]. End (3). The Offset (1, 0) 
If RNG=(b1) Then RNG. Offset (0, 1). Copy [b65536]. End (3). The Offset (1, 0) 
If RNG=[c1] Then RNG. Offset (0, 1). Copy [c65536]. End (3). The Offset (1, 0) 
Next 
End Sub 

His new EXCELA and EXCELB should put two table data Sheet1, homemade EXCELB table to the above code can be run on

CodePudding user response:

What do you mean no attachments, no see
Is to extract not duplicate values???????
Use a dictionary, or advanced screening

CodePudding user response:

Vlookup function is to solve your problem,

CodePudding user response:

Began keeping records in Excel macro, manual, complete the required function end record macros, press Alt + F11 key, view the corresponding VBA code to the macro of just now

CodePudding user response:

Don't want to VBA code is not the results to the other way around

CodePudding user response:

You can be in a sheet of ExcelB inside pages, according to the above to add a button, and then click this button in the following code:

 
For I=1 to SheetA. Range (" a65533 "). The End (xlUp). Row 
SheetB. Cells (I, 1)=sheetA. Cells (I, 1) 
SheetB. Cells (I, 2)=sheetA. Cells (I, 2) 
SheetB. Cells (I, 3)=sheetA. Cells (I, 3) 
Next I 

SheetA 1, 2, 3 for your q, a, b; In the same way in sheetB.