Excel主VBA修改錄製的巨集並有選擇地貼上公式結果

** 和以下注釋：

sub main()

if [b19] = 0 then exit sub'如果 b19=0，則退出程式。

for i = 1 to 9

if cells(20 + i, 12) = [b19] then'確定第 21-29 行和第 12 列的值是否等於 b19

j13:o13].copy'如果相等，則複製 j13：o13 的區域。

cells(20 + i, 13).select'到第 21-29 行，從 13 列開始。

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

false, transpose:=false'特別貼上，僅複製單元格的值。

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

“微調”按鈕指定此巨集。

可以用公式解決。

首先，選擇“自動重新計算”，並在選項中將“最大迭代次數”設定為 1。

然後輸入公式 ：：in M26

if（$c$25=$l 26，d$23，m26） 向下複製公式。

然後使用按鈕依次更改 C25 的值。

子按鈕 6：單擊複製和貼上選擇性 （）。

range("a1").select

range("b1").select

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

false, transpose:=falseend sub

sub macro2()

macro2 macro

將 C5 貼上到 G8

range("c5").select

range("g8").select

馬鈴薯刺槐皇家醬：=xlpastevalues， operation：=xlnone， skipblanks

false， transpose：=false， 將 A7 複製到 A5

range("a7").select

falserange("a5"淑妍）。select

將 b7 複製到 b5

range("b7").select

falserange("b5").select

將結果 C5 複製到 G9

range("c5").select

falserange("g9").select

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

false，轉置：=false，將 A8 複製到 A5

range("a8").select

falserange("a5").select

將 b8 複製到 b5

range("b8").select

falserange("b5").select

將結果 C5 複製到 G10

range("c5").select

falserange("g10").select

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

false, transpose:=falseend sub

建立乙個新的巨集，然後悄悄地單獨執行它！

試試這個。

如果是 1，我不點選按鈕，所以不能自動生成。

您需要單擊它，然後單擊它才能自動。

Paste Special 有很多選項，比如值貼上、轉置等，需要哪種方法？

單擊錄製巨集，然後執行您所做的整個步驟，然後去檢視真正的 **，在 ** 中挑選出重複的行，貼上行和列，找到它們的規律性，用公式表示它們，然後用迴圈處理這些相同的行。

自己動手，省別人**看不懂。

在結束子之前新增乙個句子。

您可以清除剪貼簿。

附件已開啟。

就算是WPS專業版，也無法錄製巨集，只能載入、建立、巨集，安裝VBA程式也比不上Microsoft Offiec將操作過程記錄為巨集，國產，總是比別人差一點，沒辦法。

您好，很高興為您解答！

WPS Personal 對個人使用者免費，沒有 VBA 程式，因此無法錄製巨集。

您可以安裝VBA程式，或嘗試WPS的專業版。

如果您有任何問題，請點選我的頭像提問。 祝你有美好的一天！

以 WPS 2019 版本為例：

關於如何在WPS Excel中使用VBA錄製巨集。

目前，WPS個人版不支援巨集。 如果通過其他方式將 VBA 載入到 WPS Personal 中，則不建議或保證 WPS 正常工作。

您可以通過記錄巨集的操作來實現所需的效果。

例如，有選擇地貼上文字。 之後，設定快捷鍵非常方便。