![](/img/trans.png)
[英]I need to be able to sort a protected worksheet that has locked column headers in excel (VBA)
[英]I need to be able to select columns in Excel by specifying column numbers in vba
Dim count As Integer
Dim myData As Workbook
Dim col As Integer, rng As Range, n#, b#
col = Selection.Column 'choose the column to count the values from
If Application.WorksheetFunction.CountA(Columns(col)) = 0 Then
MsgBox "You have selected a blank column"
n = 0
Else
Set rng = Intersect(Columns(col), ActiveSheet.UsedRange)
On Error Resume Next
b = rng.Cells.SpecialCells(xlCellTypeBlanks).count
n = rng.Cells.count - b - 1
On Error GoTo 0
Worksheets("sheet1").Select
我需要通过指定列号或名称来选择列,而不是column.selection
。
只需使用Columns(1) = Column one
或Columns("A") = Column one
返回一个Range对象,该对象表示活动工作表上的所有列。 如果活动文档不是工作表,则Columns属性将失败。
例
Worksheets("Sheet1").Columns(1).Font.Bold = True
要么
WorksheetFunction.CountA(列(1))
WorksheetFunction.CountA(Columns(1)), same as column 1
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.