如何将数据从一个工作表复制到另一个工作表？

Question

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

S.no Name ID Class

1 Jhon 12 10

---

2 peter 13 9

在第二个工作表中，我只复制sno和id ..并且这些位置没有固定，列可能插在中间。

我尝试选择整行，然后选择我想要的值。但它不起作用

有人可以帮我这个吗？

Answer 1

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

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

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