VBA在excel中选择带有标题的列（如何使用数据自动调整列？）

使用VBA如何在Excel中选择所有带标题的列？还是所有非空的列？基本上选择所有包含数据的列。

一个简单的方法是使用类似于

范围（“A1”）。CurrentRegion

要寻址列：

range（“A1”）.CurrentRegion.columns

。

---

关于“选择”：这通常是无用的，只会减慢代码的速度。永远不要选择，除非你有充分的理由。

不确定这是否对你有用，但是如果你选择了所有包含数据的单元格怎么办？这里有一个小宏供您使用，只需编辑范围以匹配您的条件

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

Sub宏1（）
变暗LR为长，单元格为范围，rng为范围
附页（“第1页”）
LR=.Range（“G”和Rows.Count）.End（xlUp）.Row
范围内的每个单元格（“A1:G”和LR）
如果单元格的.Value为“”，则
如果rng不算什么，那么
设置rng=单元
其他的
设置rng=联合（rng，单元）
如果结束
如果结束
下一个细胞
rng.选择
以
端接头

使用数据自动调整列

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

或者可能

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

---

谢谢你的回答，但是这会选择数据，但是我如何选择列？我想为所有包含数据的列将列宽设置为“自动调整”。当我使用Range（“A1”）.CurrentRegion.Select时，此选项仅选择单元格，而不选择整列您应该询问“如何使用数据自动调整列”！那答案与问题无关！