如何使用vba从另一个工作表中获取单元格值

Question

您好我正在使用Excel vba我使用vba将一组列从sql重新编译为excel，并且我通过引用另一个表来获取特定重试列值的ID。例如，我在2张表中，其中sheet1具有rid，rname列和sheet2具有sid，rid，date columns.whereas，从sql到excel sheet2重新获取的值具有sid，rname，日期值我想用rname值替换通过在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

相应地填写变量。