0

我手头有问题。我从工作表中复制信息说“sheet1”到“sheet2”,但这里的问题是我只复制某些字段。比如说我有

S.no Name ID Class

1约翰12 10


2 彼得 13 9

在第二个工作表中,我只复制 sno 和 id ..这些位置不固定,列可能插入中间。

我试图选择整行并选择我想要的值。但它不起作用

有人可以帮我吗?

4

1 回答 1

0

您可以查找正确的标题以找到正确的列:

Sub copyNoAndID()
    Dim noRange As Range, idRange As Range
    Set noRange = Range("A1:Z1").Find("S.no")
    Set idRange = Range("A1:Z1").Find("ID")

    noRange.Resize(1000).Copy Range("AA1")
    idRange.Resize(1000).Copy Range("AB1")
End Sub

无论列的位置如何,查找都会识别它们并并排复制它们。

于 2013-06-05T19:58:08.943 回答