我需要通过在vba中指定列号来选择Excel中的列

Question

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

Instead of column.selection , I need to be able to choose the column by specifying the column number or name.

Answer 1

Simply use Columns(1) = Column one or Columns("A") = Column one

Worksheet.Columns Property (Excel)

Returns a Range object that represents all the columns on the active worksheet. If the active document isn't a worksheet, the Columns property fails.

Example

Worksheets("Sheet1").Columns(1).Font.Bold = True

Or

WorksheetFunction.CountA(Columns(1))

WorksheetFunction.CountA(Columns(1)), same as column 1