首页 文章

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

提问于
浏览
-3

嗨我正在使用Excel vba我已经使用vba将一组列从sql重新编译为excel,并且我将通过引用另一个表来获取特定的已重复列值的id . 例如我有2张sheet1去掉了,rname列和sheet2有sid,rid,date columns.whereas,从sql到excel sheet2重新获得的值有sid,rname,日期值我想用out值替换rname值通过在sheet1中引用相应的rid . 如何使用VBA代码执行此操作

1 回答

  • 0

    请考虑您的问题下的所有评论以获取更多帖子 . 不过这是一个答案 .

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

    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
    

    相应地填写变量 .

相关问题