如何使用宏选择填充单元格的范围

Question

我在sheet3中有一个按钮。在按钮点击事件中我正在调用一个宏。在宏中我想选择在sheet13中填充的单元格数量。我该怎么做

Answer 1

如果不更改工作表的焦点，则无法选择单元格。

Sheets("sheet13").Activate
ActiveSheet.UsedRange.Select

但是，您可以在不改变焦点的情况下应用更改或从其他工作表读取数据。

Sheets("sheet13").UsedRange.Font.Bold = True
Msgbox Sheets("sheet13").UsedRange.Cells.Count

Answer 2

正如Variant所说，如果不改变工作表的焦点，就无法选择单元格。

但您可以使用SpecialCells选择单元格

Sub tester()
Dim x1 As Range
Dim x2 As Range
Dim bigRange As Range
Sheets("sheet2").Select 'the page you need
Range("E9").Select  ' any select will do
Selection.SpecialCells(xlCellTypeFormulas, 23).Select 'select numbers, text, etc. 
Set x1 = Selection
Range("E9").Select  ' any select will do
Selection.SpecialCells(xlCellTypeConstants, 23).Select 'select formulas
Set x2 = Selection
Set bigRange = Application.Union(x1, x2) 'join both ranges
bigRange.Select
Sheets("sheet1").Select 'return to the page with the button
End Sub

SpecialCells的帮助有关于可以选择的内容的附加信息。