将特定单元格从一个工作表复制并粘贴到另一个工作表

时间:2016-05-09 04:03:39

标签: excel vba excel-vba

我有一个电子表格Sheet1我有一行包含一些单元格值,如图1所示。我在尝试将单元格中的单元格复制并粘贴到另一个工作表时遇到问题。如下面的图1所示,我有一行值,我想从Sheet1复制单元格并将其粘贴到Sheet2,如图2所示。

Image 1

Image 2

有人可以告诉我该怎么做吗?

2 个答案:

答案 0 :(得分:3)

对于Sheet2上的第一个单元格,请写:

=Sheet1!A4

然后另外两个如下:

=Sheet1!D4
=Sheet1!G4

也就是说,即使您更新了Sheet1上的值,也希望拥有相同的值。如果没有,也许你想要vba代码?创建一个新模块:

sub copy()

dim sheet1 as Worksheet, sheet2 as Worksheet

sheet1 = Worksheets("Sheet1")
sheet2 = Worksheets("Sheet2")
sheet2.Cells(1,"A").Value=sheet1.Cells(4,"A").Value
sheet2.Cells(2,"A").Value=sheet1.Cells(4,"D").Value
sheet2.Cells(3,"A").Value=sheet1.Cells(4,"G").Value

end sub

答案 1 :(得分:0)

试试这个脚本。

Sub CopyData1()
Dim cell As Range, rw As Long
rw = 2
For Each cell In ActiveSheet.Range("A1:H20")
If Not IsEmpty(cell) = True Then
Worksheets("Sheet2").Cells(rw, 1).Value = cell.Value
rw = rw + 1
End If
Next
End Sub

我假设您有一张名为' Sheet2'的表格。如果没有,只需重命名要复制值的工作表。