自动填充另一个单元格的单元格值

Question

我想自动填充单元格值，如果数据验证是肯定的。基本上，如果联系地址与站点地址相同，则会将站点地址拖到联系地址。

到目前为止，我已经尝试过这样的代码：

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 

此，对于一些未知的原因，不能正常工作。请，有人能帮我吗？

Answer 1

您的类型声明（我假设基于变量名称）是错误的。我猜这些值大部分是String类型（Long用于数字整数），所以如果您将您的类型声明更改为As String，它应该按照您的需要工作。