两个工作表之间的交叉引用

Question

我有两个电子表格（OriginalData 和模板），我试图弄清楚如何创建一个 vba 代码，仅当模板中列中的特定单元格时才会将数据从 OriginalData 工作表拉入模板工作表工作表为空白。数据将填充到模板工作表上的另一列中，而不是替换原来的空白单元格。我还需要遍历数据范围内的每个空白单元格。我知道我可以使用 VLOOKUP 公式，但我试图尽可能地自动化这个过程，而不必每次都输入公式。

到目前为止，这是我能够提出的，但它不起作用，现在我被卡住了，所以任何帮助将不胜感激。我对 VBA 编码还是比较陌生，所以请放轻松。

Dim shOrg As Worksheet: Set shOrg = ThisWorkbook.Sheets("OriginalData")
Dim shTemp As Worksheet: Set shTemp = ThisWorkbook.Sheets("Template")
Dim CheckCell as Range
LastRowTemp = shTemp.Cells(Rows.Count, 1).End(xlUp).Row + 1

For Each CheckCell in shTemp.Range("B" & LastRowTemp)
   If CheckCell.Value = "" Then
      Range("C" & CheckCell).Value = Application.VLookup(CheckCell,shOrg.Range("A2:E"),5,FALSE)
   End If
Next CheckCell

End Sub

Answer 1

响应您上面的评论，以下代码将实现您想要的 - 即定义要评估的行数。

Option Explicit
Sub AutoVlookup()
Dim shOrg As Worksheet, shTemp As Worksheet
Dim OrgRng As String, TempRng As Range, CheckCell As Range

Set shOrg = Sheets("OriginalData")
Set shTemp = Sheets("Template")

'Define the lookup ranges i.e. the last rows
shOrg.Range("A2:E" & shOrg.Cells(Rows.Count, 1).End(xlUp).Row).Name = "OrgRng"
Set TempRng = shTemp.Range("B2:B" & shTemp.Cells(Rows.Count, 1).End(xlUp).Row)

For Each CheckCell In TempRng
    If CheckCell.Value = "" Then
        CheckCell.Offset(, 1).FormulaR1C1 = "=VLOOKUP(RC1,OrgRng,5,FALSE)"
        CheckCell.Offset(, 1).Value = CheckCell.Offset(, 1).Value
    End If
Next CheckCell

End Sub