如何使用vba从另一张图纸中获取单元格值

您好，我正在使用Excel vba，我使用vba从sql检索了一组列到Excel，我必须通过引用其他工作表来获取特定检索列值的id。例如，我有两张工作表，其中sheet1有rid、rname列，sheet2有sid、rid、date列。然而，从sql检索到excel sheet2的值有sid、rname、date值。我想通过引用sheet1中相应的rid值，将rname值替换为rid值。如何使用VBA代码

< P>，请考虑您的问题下的所有评论以供进一步的帖子。 然而，这里有一个答案

这适用于具有相同行数的两列：

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

---

相应地填写变量。

这是VBA、VB6、VBScript还是VB.NET。这些都不是同一件事。此外，这不是免费的代码服务。向我们展示您通过研究尝试或发现的内容请不要标记垃圾邮件。请仅使用与您的问题相关的标记。您好，感谢您对上述评论的回复。我已尝试在sheet1中的查找选项，其中rname作为搜索单元格的键传递。查找（What:=“rname”，After:=[A1]，SearchDirection:=xlPrevious，searchorder:=xlByColumns，MatchCase:=false）。选择删除

“rname”周围的
“
”“

-这将强制它搜索文本字符串

rname

，而不是变量

rname