Question

我需要一个宏来选择所有有效数据，将其复制并粘贴到新工作表中并保存工作表。他的问题是，工作表中可能没有数据，因为这将运行50多张

我有以下内容，但如果没有数据，则选择1mio +空行。

Sub InvoiceBackup()

Sheets("ASM001").Select
Range("A5").Select
Range( _
    ActiveCell.End(xlDown).Offset(0, 14), _
    ActiveCell.Offset(1, 0)).Select

End Sub

请帮帮忙？

Answer 1

在宏的开头尝试这样的事情：

Range("A1048576").End(xlUp).Select
If ActiveCell.Row = 5 Then Exit Sub 'because there are no data...

Answer 2

在我的代码中，我测试标题下的单元格是否为empy

Sub InvoiceBackup()
    Dim wksht As Worksheet
    Dim rng As Range

    Set wksht = Sheets("ASM001")
    Set rng = wksht.Range("A5")
    If Not IsEmpty(rng.Offset(1, 0)) Then
        Set rng = Range(rng.End(xlDown).Offset(0, 14), rng.Offset(1, 0))
    End If

End Sub

我知道很多人从表格底部搜索最后一个非空单元格。我个人对此的看法是，它太依赖于Excel的版本让我对它感到满意。如果其他用户的版本具有不同的最终行号，则可能会破坏您的代码。

选择除标题，潜在空行之外的所有数据

2 个答案: