Range.Columns 属性 (Excel)

返回一个 Range 对象，它表示指定区域中的列。

语法

表达式。列

expression 一个表示 Range 对象的变量。

备注

若要返回单个列，请使用 Item 属性或等效地在括号中包含索引。 例如，和 Selection.Columns.Item(1) 都Selection.Columns(1)返回所选内容的第一列。

当应用于作为多区域选择的 Range 对象时，此属性仅返回范围的第一个区域的列。 例如，如果 Range 对象有两个区域（A1：B2 和 C3：D4），Selection.Columns.Count 则返回 2，而不是 4。 若要对包含多个所选子区域的区域使用此属性，请测试 Areas.Count 以确定该区域是否包含多个子区域。 如果包含，则对该区域中的每个子区域进行循环。

返回的区域可能位于指定区域之外。 例如，Range("A1:B2").Columns(5).Select 返回单元格 E1:E2。

如果使用字母作为索引，则该字母等效于数字。 例如，Range("B1:C10").Columns("B").Select 返回单元格 C1:C10，而不是 B1:B10。 在本例中，“B”相当于 2。

使用不带对象限定符的 Columns 属性等效于使用 ActiveSheet.Columns。 有关详细信息，请参阅 Worksheet.Columns 属性。

示例

本示例将名为 myRange 的区域第一列中每个单元格的值设置为 0 (零) 。

Range("myRange").Columns(1).Value = 0

此示例显示 Sheet1 上所选范围内中的列数。 如果选择了多个子区域，此示例将对每一个子区域进行循环。

Public Sub ShowNumberOfColumnsInSheet1Selection
   Worksheets("Sheet1").Activate 
   
   Dim selectedRange As Excel.Range
   Set selectedRange = Selection
   
   Dim areaCount As Long
   areaCount = Selection.Areas.Count 
   
   If areaCount <= 1 Then 
      MsgBox "The selection contains " & _ 
             Selection.Columns.Count & " columns." 
   Else 
      Dim areaIndex As Long
      areaIndex = 1 
      For Each area In Selection.Areas 
         MsgBox "Area " & areaIndex & " of the selection contains " & _ 
                area.Columns.Count & " columns." 
         areaIndex = areaIndex + 1 
      Next 
   End If
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。