Ошибка автозаполнения Excel Lastrow с помощью VBA - PullRequest
Новая
       22

Ошибка автозаполнения Excel Lastrow с помощью VBA

0 голосов
/ 02 октября 2018

У меня проблема с моим кодом для автозаполнения с использованием VBA в Excel.Я продолжаю получать сообщение об ошибке «Ошибка метода автозаполнения класса диапазона», но я не уверен, что не так с кодом.это выглядит хорошо для меня, но, может быть, я что-то упустил?Код выглядит следующим образом: 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)


A = MsgBox("Do you really want to save the workbook?", vbYesNo)
If A = vbNo Then Cancel = True

Dim lrow As Long
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A" & lastrow)
Range("A1:A" & lastrow).Select

'Range("D1").Select
'Selection.AutoFill Destination:=Range("D1:D" & lastrow)
'Range("D1:D" & lastrow).Select
'Range("H1").Select
'Selection.AutoFill Destination:=Range("H1:H" & lastrow)
'Range("H1:H" & lastrow).Select
'Range("L1").Select
'Selection.AutoFill Destination:=Range("L1:L" & lastrow)
'Range("L1:L" & lastrow).Select
End Sub

Любая помощь в правильном направлении будет принята с благодарностью.(Обратите внимание, что я просто пытаюсь исправить фигуру AI столбца, если я смогу добиться того, чтобы работа работала, все остальное попадет в линию).Спасибо!!!-D

1 Ответ

0 голосов
/ 02 октября 2018

Это то, что вы пытаетесь? 

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Ret As Variant

    Ret = MsgBox("Do you really want to save the workbook?", vbYesNo)

    If Ret = vbNo Then
        Cancel = True
    Else
        '~~> Make these changes only if user wants to save the workbook
        Dim lrow As Long
        Dim ws As Worksheet

        Set ws = ThisWorkbook.Sheets(1)

        With ws
            '~~> If Col B has data then find the last row in Col B
            lrow = .Range("B" & .Rows.Count).End(xlUp).Row

            .Range("A1:A" & lrow).Formula = .Range("A1").Formula
        End With
    End If
End Sub
...