Excel工作表数据末尾的文本框

Question

我正在使用此代码在Excel工作表中输入一个简单的文本框：

Sheets("Sheet1").Shapes.AddTextbox(msoTextOrientationHorizon‌​tal, 60, 1, 1, 60).Select

但我希望它的位置自动在Excel工作表的数据末尾。有人可以帮帮我吗？

Answer 1

这取决于数据范围的形状以及文本框的确切位置。以下是A列中数据范围的示例。

Dim rng As Range
Set rng = Range("A1").CurrentRegion

Sheets("Sheet1").Shapes.AddTextbox(msoTextOrientationHorizontal, 10, rng.Height, 22, 22).Select

rang也有一个width属性，所以你也可以使用它。

以上代码的结果：