Question

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

Answer 1

一种简单的方法是使用range("A1").CurrentRegion之类的东西要解决这些列：range("A1").CurrentRegion.Columns。关于＆＃34;选择＆＃34;：这通常是无用的，只会减慢您的代码速度。除非你有充分的理由，否则永远不会Select。

Answer 2

使用数据自动调整列

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

或者可能

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

Answer 3

不确定这对您是否有用，但是如果要选择其中包含数据的所有单元格会怎么样？这里有一个小宏，只需编辑范围以符合您的标准

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

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

3 个答案: