EXCEL根據(jù)某一一行的值，自動復(fù)制插入行，VBA代碼怎么寫？12345678910Sub fuzhi（），帶activesheet For i=.Range（“N65536”）.End（xlUp）.

EXCEL根據(jù)某一一行的值，自動復(fù)制插入行，VBA代碼怎么寫？

12345678910Sub fuzhi（），帶activesheet For i=.Range（“N65536”）.End（xlUp）.Row To 2 Step-1 n=UBound（拆分（.Cells（i，“n”），“，”））.Rows（i&”：“&；i n-1）.Insert.Rows（i n）.Copy.Rows（i&”：“&；i n-1）.Rows（i 1&”：“&；i n）。內(nèi)飾。顏色=vbGreen Next end withEnd Sub

按照基本操作中的方法，如果粘貼后要保持原來的行高和列寬，則需要復(fù)制粘貼整行以保持行高，然后有選擇地再次粘貼以選擇列寬以保持原來的列寬。在VBA中，應(yīng)該是相同的想法。復(fù)制并粘貼整行entirerow.copy文件然后再次，粘貼特殊粘貼：=xlpastecolumnwidths

謝燕，想出三種方法：

[method 1]條件格式（推薦）

選擇動作表，如A2到F5，點(diǎn)擊條件格式-添加條件格式-使用公式設(shè)置，鍵入公式：

=A2<>“

{formula表示A2單元格中有內(nèi)容時返回true}

將格式設(shè)置為所需樣式，然后確認(rèn)以查看效果。

[method 2]format brush]提前使用format brush并等待輸入內(nèi)容。這種方法似乎不是一種方法，但它是快速、有效和直觀的。90%的工作實(shí)踐使用這種方法。

[method 3]VBA]install B，編寫代碼指定操作范圍，只要輸入的信息在指定范圍內(nèi)，格式就會自動填寫。定制代碼需要時間。如果你還需要，請告訴我

你好，我是[thnen]。我很高興為你回答。假設(shè)表1中的數(shù)據(jù)可以通過A:H列中的函數(shù)輸入到表2的B1中，公式如下：右拉公式（A1輸入序號）=vlookup（$A1，Sheet1！$a:$h，column（），0）。如果使用VBA，無論表1中的數(shù)據(jù)有多少列，都將復(fù)制整行。代碼如下：private sub sheetworkuuchange（ByVal Target as Range）If目標(biāo).列=1和目標(biāo)。計(jì)數(shù)=1，然后使用表（“sheet1”）表示x=1到.Range（“A65536”）.End（xlUp）.Row If.Cells（x，1）=目標(biāo)值然后。行（x）。復(fù)制目標(biāo)。行出口接頭End If Next x End With End IfEnd sub將此代碼放入表2中的“代碼”編輯框中，以獲得所需的結(jié)果。更專業(yè)的科普知識，請關(guān)注我。如果你喜歡我的回答，也請給我表揚(yáng)或轉(zhuǎn)發(fā)，你的鼓勵是支持我寫下來的動力，謝謝。