全部显示
应用于 Application 对象的 Columns 属性。
返回一个 Range 对象，该对象代表活动工作表中的所有列。如果活动文档不是工作表，则 Columns 属性无效。只读。
expression.Columns
expression 必需。该表达式返回“应用于”列表中的对象之一。
返回 Range 对象，该对象代表指定单元格区域中的列。只读。
expression.Columns
expression 必需。该表达式返回“应用于”列表中的对象之一。
返回一个 Range 对象，该对象代表指定工作表上的所有列。只读。
expression.Columns
expression 必需。该表达式返回“应用于”列表中的对象之一。
有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。
在不使用对象识别符的情况下使用此属性等价于 ActiveSheet.Columns。
当对一个多重选定区域的 Range 对象应用属性时，此属性返回的只是所选区域的第一个子区域中的列。例如，如果 Range 对象有两个子区域 A1:B2 和 C3:D4，那么，Selection.Columns.Count 的返回值是 2，而不是 4。若要对一个可能包含多重选定区域的区域使用此属性，请用
Areas.Count 方法测试一下此区域内是否包含多个子区域。如果确实包含多个子区域，可对此区域内的每一子区域进行循环。
本示例将 Sheet1 的第一列（A 列）的字体设置为加粗。
Worksheets("Sheet1").Columns(1).Font.Bold = True本示例将“myRange”区域第一列中每一单元格的值置为 0（零〕。
Range("myRange").Columns(1).Value = 0本示例显示 Sheet1 中选定区域的列数。如果选定区域包含多个子区域，本示例将对每一子区域进行循环。
Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
MsgBox "The selection contains " & _
Selection.Columns.Count & " columns."
Else
For i = 1 To areaCount
MsgBox "Area " & i & " of the selection contains " & _
Selection.Areas(i).Columns.Count & " columns."
Next i
End If