Excel master VBA modifies the recorded macro and selectively pastes the formula result

** and notes below:

sub main()

if [b19] = 0 then exit sub'If b19=0, exit the program.

for i = 1 to 9

if cells(20 + i, 12) = [b19] then'Determine whether the values of rows 21-29 and column 12 are equal to b19

j13:o13].copy'If equal, then copy the area of j13:o13.

cells(20 + i, 13).select'to rows 21-29, starting from 13 columns.

paste:=xlpastevalues, operation:=xlnone, skipblanks _

false, transpose:=false'Paste specially, copy only the value of the cell.

end if

falseend sub

sub xx()

dim yon error resume next

y = "b19"), columns("l"), false)

falseif cells(19, 2) <"" then cells(y, 13) = range("j13")

if cells(19, 2) <"" then cells(y, 14) = range("k13")

if cells(19, 2) <"" then cells(y, 15) = range("l13")

if cells(19, 2) <"" then cells(y, 16) = range("m13")

if cells(19, 2) <"" then cells(y, 17) = range("n13")

if cells(19, 2) <"" then cells(y, 18) = range("o13")

trueend sub

The Fine-Tuning button specifies this macro.

It can be solved with formulas.

First, select Auto Recalculation and set Maximum Iterations to 1 in the options.

Then enter the formula ::in M26

if($c$25=$l 26,d$23,m26) to copy the formula right downward.

Then use the button to change the value of C25 in turn.

sub button 6: Click Copy & Paste Special ().

range("a1").select

range("b1").select

paste:=xlpastevalues, operation:=xlnone, skipblanks _

false, transpose:=falseend sub

sub macro2()

macro2 macro

Paste C5 to G8

range("c5").select

range("g8").select

Potato Locust Royal paste:=xlpastevalues, operation:=xlnone, skipblanks

false, transpose:=false, copy a7 to a5

range("a7").select

falserange("a5"Shuyan).select

Copy b7 to b5

range("b7").select

falserange("b5").select

Copy the result C5 to G9

range("c5").select

falserange("g9").select

paste:=xlpastevalues, operation:=xlnone, skipblanks _

false, transpose:=false, copy a8 to a5

range("a8").select

falserange("a5").select

Copy b8 to b5

range("b8").select

falserange("b5").select

Copy the result C5 to G10

range("c5").select

falserange("g10").select

paste:=xlpastevalues, operation:=xlnone, skipblanks _

false, transpose:=falseend sub

Create a new macro, and then quietly execute it separately!

Try this.

If it is 1, I do not click the button, so it cannot be generated automatically.

You need to click on it, and then click on it to be automatic.

There are a lot of options for Paste Special, such as value paste, transpose, etc., which method is needed?

Click on the recording macro, and then do the whole step you did, and then go to see the real **, pick out the duplicate rows in the **, paste the rows and columns, find their regularity, express them with formulas, and then process these same lines with loops.

Do it yourself, and save other people's ** can't understand.

Add a sentence before end sub.

You can clear the clipboard.

The attachment is on.

Even if it's WPS Professional Edition,Can't record macros,Only load、Create、Macro,Install VBA programs can't be as convenient as Microsoft Offiec to record the operation process as a macro,Domestic,It's always a little worse than others,No way。

Hello, glad to answer for you!

WPS Personal is free for individual users and does not have a VBA program, so it is not possible to record macros.

You can install a VBA program, or try the professional version of WPS.

If you have any questions, please click on my avatar to ask questions. Have a great day!

Take the WPS 2019 version as an example:

About how to record macros with VBA in WPS Excel.

Currently, WPS Personal Edition does not support macros. If you load VBA into WPS Personal through other means, WPS is not recommended or guaranteed to work properly.

You can accomplish the effect you want by recording the actions of the macro.

For example, paste text selectively. After that, it's quite convenient to set up shortcut keys.