將特定單元格從一個工作表復制並粘貼到另一個工作表

Question

我有一個電子表格Sheet1，其中一行包含一些單元格值，如圖1所示。嘗試將單元格中的單元格復制並粘貼到Excel中的另一個單元格時遇到問題。 如下面的圖像1所示，我有一排帶有值的行，我想從Sheet1復制單元格並將其粘貼到Sheet2，如圖2所示。

誰能告訴我該怎么做？

Answer 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

Answer 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”的工作表。 如果沒有，只需重命名要將值復制到的工作表。