从一列中选择所有值，直到最后一个值

Question

在列A中，我有几个值。As值​​添加或删除，在excel vba中我想提取所有值​​从A列一直到最后一个值

我该如何创建？

Werte = Sheets("Messauswertung").Range("A1:A100").Value

这不是的最佳方式

谢谢！

Answer 1

正在路上

dim lastRow as Long
With Sheets("Messauswertung")
lastRow = .Cells(rows.Count, 1).End(xlUp).Row 'last used row
Werte = .Range("A1:A" & lastRow).Value
End With

顺便说一下，每张纸都有一个。名字也是。代号(表1(
我发现(最终更改CodeName并(使用该名称要好得多
更易于读取、写入，并且可以防止用户更改名称。