特定のセルをコピーして別のワークシートに貼り付けよう

Question

私はスプレッドシートを持っていますシート1画像1に示すようなセル値を持つ行があります。ワークシートのセルを別のワークシートにコピーして貼り付ける際に問題があります。下の画像1に示したように、私は値を持つ行があると私は次の使用例は、シート1からセルをコピーすると、画像に2

を示すように、シート2に貼り付けることができます誰それをどうやるか教えてください。

Sheet2の上の最初のセルについては

Answer 1

、書き込み：

=Sheet1!A4 

を次に他の2つは次のように：あなたは更新しても同じ値を持つようにしたい場合は、ある

=Sheet1!D4 
=Sheet1!G4 

シート1上のもの。そうでない場合は、おそらくあなたは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」という名前のシートがあるとします。そうでない場合は、値をコピーしたいシートの名前を変更してください。