VBA在excel中select带有标题的列（如何使用数据自动填充列）

使用VBA如何在Excel中select所有包含标题的列？ 或所有不是空白的列？ 基本上select所有与他们的数据列。

Answer 1

使用数据自动调整列

Sub AutoFit() Rows("1:1").SpecialCells(xlCellTypeConstants, 23).Columns.AutoFit End Sub 

或者可能

 Sub AutoFitCell() Cells.SpecialCells(xlCellTypeConstants, 23).Columns.AutoFit End Sub 

Answer 2

一个简单的方法是使用range("A1").CurrentRegion 。
要解决这些列： range("A1").CurrentRegion.Columns 。 关于“select”：这通常是无用的，只是减慢你的代码。 永远不要Select除非你有一个严重的理由。

Answer 3

不知道这是否对你有用，但如果你select所有的数据在其中的单元格呢？ 这里有一个小的macros，只需编辑范围，以符合你的标准

 Sub Macro1() Dim LR As Long, cell As Range, rng As Range With Sheets("Sheet1") LR = .Range("G" & Rows.Count).End(xlUp).Row For Each cell In .Range("A1:G" & LR) If cell.Value <> "" Then If rng Is Nothing Then Set rng = cell Else Set rng = Union(rng, cell) End If End If Next cell rng.Select End With End Sub