Question

我有一个代码，用于查找E列中的最后一行数据，并选择最后一行的列。我希望能够在列B到D中选择与E列相关的关联数据，然后根据B列进行排序。所以我想我会找到E列中的最后一行然后调整3列并从该选择中排序但我不断收到运行时错误1004应用程序定义或对象定义的错误。我在下面提供了我使用的代码。列B到D包含超过E列结尾的数据。谢谢！

ws.Range("E1:E" & finalrow).Resize(0, 3).Select

Answer 1

您可能无法始终在第一行（例如MPMediaPickerController * media; [media mediaPicker]; // error ViewController * media; MPMediaPickerController * mediaPicker; MPMediaItemCollection * didPickMediaItems; [media mediaPicker:(MPMediaPickerController *) didPickMediaItems:(MPMediaItemCollection *)]; // error）开始，因此如果没有一些数学， lastRow 可能不适用。在这种情况下，使用With ... End With statement来缩短代码，同时明确引用正确的单元格和单元格区域。

E1

_{有关远离How to avoid using Select in Excel VBA macros和Range.Select以实现目标的更多方法，请参阅Range.Activate。}

Answer 2

类似的东西：

Sub SelectLast3Cols()

Dim ws As Worksheet, lrow As Long

Set ws = Sheets("Sheet3")
lrow = ws.Range("E" & ws.Rows.Count).End(xlUp).Row

    ws.Range("B1", ws.Range("D" & lrow)).Select

End Sub

列选择到lastrow然后调整大小

2 个答案: