vba를 사용하여 다른 시트에서 셀 값을 얻는 방법

Question

안녕하세요 저는 Excel vba에서 작업하고 있습니다. vba를 사용하여 Excel에서 Excel에서 얻은 열 집합을 얻었으므로 다음과 같이 특정 회수 된 열의 값을 구해야합니다. 다른 시트를 참조하십시오. 예를 들어, 내가 sheet1은 rname 열을 제거하고 sheet2는 sid, rid, date columns.whereas를 가지고있는 2 시트를했습니다. sql에서 sheet2를 엑셀 한 값은 rname 값을 rid 값으로 대체하려는 sid, rname, date 값을가집니다. sheet1에 해당하는 rid를 참조하십시오. VBA 코드를 사용하여 수행하는 방법

Answer 1

추가 게시물에 대한 질문 아래의 모든 의견을 고려하십시오. 그럼에도 불구하고 대답은 있습니다.

이 행의 같은 양의 두 열 작동 : 따라 변수

이

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 

채우기.