Excel VBA-根據另一列的數據，使用“偏移”獲取單元格值

Question

K列可以包含字符串“ Item Cost”。 當K列包含“項目成本”時，我想偏移到U列，並將該單元格中的值復制到與“項目成本”字符串相同的ROW中。

我可以獲取代碼來讀取和查找列K中的值，但是列U的代碼對應部分有問題。

Dim range1 As Range
Dim Answer4 As Variant
LstRw = Cells(Rows.Count, "K").End(xlUp).Row
Set List = CreateObject("Scripting.Dictionary")


For Each range1 In wbFrom.Sheets("Sheet0").Range("K9:K" & LstRw)
  If range1.Offset(0, 0) = "Item Cost " Then
        'MsgBox "found"
         Answer4 = range1.Offset(0, 10).Value  '<---- PROBLEM
  End If
Next

'Msgbox Answer4 'returns nothing

 wbTo.Sheets("Sheet1").Range("D10").Value = Answer4  'returns nothing

Answer 1

似乎您將要使目標范圍成為動態Range("D10") ）。 照原樣的代碼將連續重寫D10的值。 您是否希望該值與目標范圍在同一行中？ 如果是這樣，請交換

wbTo.Sheets("Sheet1").Range("D10") = range1.Offset(0, 10) 

對於

wbTo.Sheets("Sheet1").Range("D" & range1.Row) = range1.Offset(0, 10) 

---

For Each range1 In wbFrom.Sheets("Sheet0").Range("K9:K" & LstRw)
  If range1 = "Item Cost " Then
        'MsgBox "found"
         wbTo.Sheets("Sheet1").Range("D10") = range1.Offset(0, 10) 
  End If
Next