在特定條件下在Excel中使用VBA復制數據

Question

我的老板要求我在包含171個城市的excel文件中填寫客戶費率（每個城市有5個不同的費率-例如，如果city = Cell A1，則Cells A2：A6 =基於不同權重類別的費率）

我正在編寫一個VBA代碼（以前從未做過工作），在匹配City-Name並將相應的價格粘貼到城市之后，它將價格從源工作表復制到該工作表。

我的代碼可以掃描和匹配城市名稱，但是它始終將5個費率類別粘貼在第一行而不是匹配的實際城市旁邊。 我正在學習x1Down東西，但它很復雜。

這是我的代碼：

Sub Button54_Click()

For Each c In Range("C2:C170")
 If c.Value = Range("O14").Value Then

*****O14 contains the source city name which I pasted from the source file. I can fix this later****

 Range("E2:J2").Value = Range("P14:U14").Value

**** P14：U14包含我粘貼的源文件速率。 我以后也可以解決這個問題****

 End If
Next c
End Sub

我想要有關（xlUp）位的幫助，以便Range（“ E2：J2”）在掃描列表中匹配城市名稱時會遞增。 我一直在玩，但會得到幫助。

Answer 1

代替使用(xlUp)或(xlDown)您可以使用c的行號輸出到適當的匹配行

Sub VendorStop()

For Each c In Range("C2:C170")
    If c.Value = Range("O14").Value Then
        Range("E" & c.Row & ":J" & c.Row) = Range("P14:U14")
    End If
Next c

End Sub