Excel 如何修复编译错误：属性使用无效

我试图将工作簿中的所有公式从AQ2列拖到BF列，但当我分配lastrow变量的计数时，它总是给我一个错误

已经尝试过不使用变量lastrow来执行它，但是它给了我同样的错误

Option Explicit
Dim mt_roster As String
Dim roster As String
Dim wkb_1 As Workbook
Dim wkb_2 As Workbook
Dim ws_1 As Worksheet
Dim ws_2 As Worksheet
Dim rng_1 As Range
Dim rng_2 As Range
Dim lastrow As Range

Sub mtm_roster()

' mtm_roster Macro

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    open_rosters

    With wkb_1
        wkb_1.Activate
        Set ws_1 = Worksheets("Sheet1")
        Set rng_1 = ws_1.Columns("A:AQ")
        rng_1.EntireColumn.Hidden = False
    End With

    With wkb_2
        wkb_2.Activate
        Set ws_2 = Worksheets("Sheet1")
        Set rng_2 = ws_2.Range("A1").CurrentRegion
        rng_2.Select
    End With

    rng_2.Copy
    rng_1.PasteSpecial xlPasteValues

    wkb_2.Close SaveChanges:=False

    With wkb_1
        wkb_1.Activate
        ws_1.Activate
        Set lastrow = Range("A1")
        lastrow.CurrentRegion.Rows.Count
        Range("AQ2:BF" & lastrow).FillDown

    End With

---

我试图把AQ:BF的公式一直往下拖，但我仍然没有找到那一部分。

试试下面的答案

    With wkb_1
        Set ws_1 = .Worksheets("Sheet1")
        Set rng_1 = ws_1.Columns("A:AQ")
        rng_1.EntireColumn.Hidden = False
    End With

    With wkb_2
        Set ws_2 = .Worksheets("Sheet1")
        Set rng_2 = ws_2.Range("A1").CurrentRegion
    End With

    rng_2.Copy
    rng_1.PasteSpecial xlPasteValues

    wkb_2.Close SaveChanges:=False

    Dim LastRow As Long
    With ws_1
        LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("AQ2:BF" & LastRow).FillDown
    End With