Excel 从另一个单元格自动填充单元格值

如果数据验证结果为“是”，我将尝试自动填充单元格值。基本上，如果联系地址与站点地址相同，那么它将把站点地址拉到联系地址

到目前为止，我已经尝试了以下代码：

Sub PopulateSite()

Dim SiteName As Long
Dim Address1 As Long
Dim Address2 As Long
Dim Town As Long
Dim County As Long
Dim Postcode As Long
SiteName = Sheets("HV.Select Site Set Up").Range("E7")
Address1 = Sheets("HV.Select Site Set Up").Range("E17")
Address2 = Sheets("HV.Select Site Set Up").Range("E19")
Town = Sheets("HV.Select Site Set Up").Range("E21")
County = Sheets("HV.Select Site Set Up").Range("E23")
Postcode = Sheets("HV.Select Site Set Up").Range("E25")

If Sheets("HV.Select Site Set Up").Range("G29") = "Yes" Then
Sheets("HV.Select Site Set Up").Range("E31") = SiteName
Sheets("HV.Select Site Set Up").Range("E41") = Address1
Sheets("HV.Select Site Set Up").Range("E43") = Address2
Sheets("HV.Select Site Set Up").Range("E45") = Town
Sheets("HV.Select Site Set Up").Range("E47") = County
Sheets("HV.Select Site Set Up").Range("E49") = Postcode
End If

End Sub

---

由于某种未知的原因，这是行不通的。请，有人能帮我吗？

您的类型声明（我假设基于变量名）是错误的。我猜这些值中的大多数都是

String

类型（

Long

用于数字整数），因此如果您将类型声明更改为

As String

，它应该可以根据您的需要工作。

谢谢，效果很好。您知道如何在单元格更改时运行它吗？@PeterMogford将代码添加到

工作表\u change

或

工作表\u Calculate

方法中