'

Macro 1 macro

'

k = 2

For i = 2 to 65536

rg0 = " A " & ampi + 1

Rg = "A"&

Intermediate frequency range (rg). Text & lt& gt ""So?

Intermediate frequency (range (rg)). Text,18,2) > intermediate value (range (rg0)). Text,18,2) and then

Ok (I & ":"&me). choose

choose copy

Windows ("table 2.xlsx ") is activated.

Range ("A" & ampk). choose

ActiveSheet。 paste

Windows ("table 1.xlsx ") is activated.

k = k + 1

If ... it will be over.

other

Quit for ...

If ... it will be over.

then

End joint

There is also a form called form 2.xlsx, which can be communicated online if it is not well thought out.