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

【问题标题】：Copy and Paste Specific Cells from one worksheet to another将特定单元格从一个工作表复制并粘贴到另一个工作表
【发布时间】：2016-05-09 04:03:38
【问题描述】：

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

谁能告诉我怎么做？

【问题讨论】：

粘贴或链接？我的意思是，即使您更改了原件，您是只想复制内容还是只获得相同的值？
仅复制内容就是我在 VBA 中尝试做的事情

标签： vba excel

【解决方案1】：

对于 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

【讨论】：

【解决方案2】：

试试这个脚本。

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”的工作表。如果没有，只需重命名要将值复制到的工作表即可。

【讨论】：