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

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

你好，我是[thnen]，很高興為你回答。假設(shè)表1中的數(shù)據(jù)可以通過(guò)A:H列中的函數(shù)輸入到表2的B1中，公式如下：右拉公式（A1輸入序號(hào)）=vlookup（$A1，Sheet1！$a:$h，column（），0）。如果使用VBA，無(wú)論表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è)的科普知識(shí)，請(qǐng)關(guān)注我。如果你喜歡我的回答，也請(qǐng)給我表?yè)P(yáng)或轉(zhuǎn)發(fā)，你的鼓勵(lì)是支持我寫(xiě)下來(lái)的動(dòng)力，謝謝。

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

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

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

范圍（“A1”）。Pastespecial xlpastevaluesandnumberformats

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

范圍（“A1”）。Pastespecial[xlpasteformats

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

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