EXCEL中用VBA復(fù)制整行？你好，我是[thnen]，很高興為你回答。假設(shè)表1中的數(shù)據(jù)可以通過A:H列中的函數(shù)輸入到表2的B1中，公式如下：右拉公式（A1輸入序號）=vlookup（$A1，Shee

EXCEL中用VBA復(fù)制整行？

你好，我是[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ā)，你的鼓勵是支持我寫下來的動力，謝謝。

excel vba復(fù)制行，復(fù)制它的內(nèi)容和格式？

復(fù)制后拆分復(fù)制行并特別粘貼：

行（X&；“：”&；n）EntireRow.復(fù)制

范圍（“A1”）。Pastespecial xlpastevaluesandnumberformats

如果是復(fù)制的單元格格式，請?zhí)砑右韵戮渥?/p>

范圍（“A1”）。Pastespecial[xlpasteformats

此外，行本身是一個整行引用，此處的整個行是重復(fù)的，可以取消它并直接更改為：

行（X&“：”&；n）。復(fù)制