vbaを使用して別のシートからセル値を取得する方法

Question

こんにちは私はExcel vbaで作業しています。私はvbaを使用してexcelにSQLから取得した列のセットを持っています。別のシートを参照する。たとえば、私はsheet1がrid、rname列を持っている2シートを持っていて、sheet2はsid、rid、date columns.whereasを持っています。sqlからsheet2までを取得する値はsid、rname、日付値を持ちます。シート1内の対応するridを参照してください。 VBAコードを使用してこれを行う方法

Answer 1

さらなる投稿については、ご質問のすべてのコメントを考慮してください。それにもかかわらず答えはあります。

これは、行の同じ量を持つ2つの列のために働く：

Sub stack() 

Dim ws1, ws2 As Worksheet 
Dim targetRng As Range 
Dim i As Long 

Set ws1 = Worksheets(1) 
Set ws2 = Worksheets(2) 

Set targetRng = ws2.Range(ws2.Cells(firstRow, columnID), ws2.Cells(lastRow, columnID)) 
i = firstRowSourceSheet 

For Each cell In targetRng 
cell.Value = ws1.Cells(i, columnIDSource) 
i = i + 1 
Next 

End Sub 

はそれに応じて変数を入力します。