自动填充另一个单元格的单元格值
我试图自动填充单元格的值，如果数据validation说是的。 基本上，如果联系地址与站点地址相同，则将站点地址拖到联系地址。
到目前为止，我已经试过这个代码：
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 这，由于某种未知的原因，不起作用。 请，有人能帮我吗？
你的types声明（我假设基于variables名）是错误的。 我猜这些值大部分是Stringtypes（ Long用于数字整数），所以如果你改变你的types声明为As String ，它应该工作，你需要。