运行时错误1004

我的代码应该自动填充我的“IF” K2 = J2的等都在列“L”公式，但遇到了运行时错误1004运行时错误1004

我希望宏来完成列，直到它的整体命中最后一排与列数据K.

代码：

Sub SiteAccess() 

Dim mySheet As Worksheet, myOtherSheet As Worksheet, myBook As Workbook 
Set myBook = Excel.ActiveWorkbook 
Set mySheet = myBook.Sheets("SiteAccessReports") 
Set myOtherSheet = myBook.Sheets("Sheet1") 

Dim ff As Long 

ff = myOtherSheet.Range("L2:L" & myOtherSheet.Cells(myOtherSheet.Rows.Count, "L").End(xlUp).Row).Count 
With Sheets("Sheet1") 
.Range("L2").Formula = "=IF(RC[-2]=RC[-1],""No"",""Yes"")" 
Selection.AutoFill Destination:=Range("L2:L" & ff), Type:=xlFillDefault 'Error Line 
End With 

End Sub

来源

2013-03-27 user2210690

我肯定有一个更好的答案，但对于任何其他的想要至今：

Sub SiteAccess() 
    Dim myBook As Workbook 
    Dim myOtherSheet As Worksheet 
    Dim ff As Long 
    Set myBook = Excel.ActiveWorkbook 
    Set myOtherSheet = myBook.Sheets("Sheet1") 
    ff = myOtherSheet.Range("K1:K" & myOtherSheet.Cells(myOtherSheet.Rows.Count, "K") _ 
    .End(xlUp).Row).Count 
    With Sheets("Sheet1") 
     .Range("L2").Select 
     .Range("L2").Formula = "=IF(RC[-2]=RC[-1],""No"",""Yes"")" 
     Selection.AutoFill Destination:=Range("L2:L" & ff), Type:=xlFillDefault 
    End With 
End Sub

来源

2013-08-06 19:35:33 pnuts

运行时错误1004

回答

相关问题