Excel VBAコードを使用してセルの参照を他のシートにコピー

Question

Excelの別のシートにコピーされたデータを1枚のシートにコピーしたいと考えています。最初のシートのデータの位置は静的で、データがコピーされるシート、列、行は可変で、セルデータに基づいています。私はVBコードの助けを少ししたいと思います。 次エクセル表のサンプルデータ考えてみましょう：上記のサンプルで

`Sheet1` 
'A1 = Apples' 
'B1 = Sheet2' 
'C1 = 5' 
'D1 = 10' 

を、私は列5（だけでなく、列Eすることができます）、行10でのSheet2のVBコードの場所「りんご」を持っていると思います。ボタンをクリックすると、これが上にコピーされます。 この件についてお手伝いいただきありがとうございます。 ランディ

Answer 1

Dim sht, rw, col, val 

With ThisWorkbook.sheets("Sheet1") 
    val = .Range("A1").Value 
    sht = .Range("B1").Value 
    col = .Range("C1").Value 
    rw = .Range("D1").Value 
End with 

if isnumeric(col) then 
    thisworkbook.sheets(sht).Cells(rw,col).value = val 
else 
    thisworkbook.sheets(sht).Range(col & rw).value = val 
end if