按名称查找列标题并选择列标题下的所有数据（Excel-VBA）

Question

我正在尝试创建一个宏来执行以下操作：

1. 按名称搜索电子表格列标题。
2. 选择所选列中的所有数据，列标题除外。
3. 将数字存储为文本并转换为数字。

• 转换为数字以用于 VLookup。

例如：

可视化电子表格示例：

我在网上发现了以下代码：

With ActiveSheet.UsedRange

Set c = .Find("Employee ID", LookIn:=xlValues)

If Not c Is Nothing Then

    ActiveSheet.Range(c.Address).Offset(1, 0).Select
End If

End With

但是，我仍然遇到一些问题。

Answer 1

最好避免循环遍历所有单元格。如果数据集增长，宏可能会变得太慢。使用特殊的单元格和粘贴乘以 1 的特殊操作是完成任务的有效方法。

这行得通...

Dim SelRange As Range
Dim ColNum As Integer
Dim CWS As Worksheet, TmpWS As Worksheet

'Find the column number where the column header is
Set CWS = ActiveSheet
ColNum = Application.WorksheetFunction.Match("Employee ID", CWS.Rows(1), 0)

'Set the column range to work with
Set SelRange = CWS.Columns(ColNum)

'Add a worksheet to put '1' onto the clipboard, ensures no issues on activesheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False

    Set TmpWS = ThisWorkbook.Worksheets.Add
    With TmpWS
        .Cells(1, 1) = 1
        .Cells(1, 1).Copy
    End With

    'Select none blank cells using special cells...much faster than looping through all cells
    Set SelRange = SelRange.SpecialCells(xlCellTypeConstants, 23)
    SelRange.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
    TmpWS.Delete
    CWS.Select

Application.DisplayAlerts = True
Application.ScreenUpdating = True

Answer 2

我只是偶然发现了这一点，对我来说答案非常简单，无论如何如果您正在处理 ListObject 那么这就是要走的路：

YOURLISTOBJECT.HeaderRowRange.Cells.Find("A_VALUE").Column

Answer 3

试试这个。只需将要查找的所有列标题名称添加到集合中。我假设您没有超过 200 列，如果您只是将 for i = 1 to 200 部分更新为更大的数字。

Public Sub FindAndConvert()
    Dim i           As Integer
    Dim lastRow     As Long
    Dim myRng       As Range
    Dim mycell      As Range
    Dim MyColl      As Collection
    Dim myIterator  As Variant

    Set MyColl = New Collection

    MyColl.Add "Some Value"
    MyColl.Add "Another Value"

    lastRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    For i = 1 To 200
        For Each myIterator In MyColl
            If Cells(1, i) = myIterator Then
                Set myRng = Range(Cells(2, i), Cells(lastRow, i))
                For Each mycell In myRng
                    mycell.Value = Val(mycell.Value)
                Next
            End If
        Next
    Next
End Sub

Answer 4

好的，这是实现目标的简单方法。首先，找到包含员工 ID 的列。然后只需将整个 Column 设置为 Number 而不是 Text 格式？

With Worksheets(1)  ' Change this sheet to the one you are using if not the first sheet
    Set c = .Find("Employee ID", LookIn:=xlValues)

    If Not c Is Nothing Then
        ' The column we want is c's Column.
        Columns(c.Column).NumberFormat = 0
    End If
End With

Answer 5

为您想要的范围添加一个暗淡：

Dim MyRng, RngStart, RngEnd as Range

然后改变：

ActiveSheet.Range(c.Address).Offset(1, 0).Select

到下面，以便找到该列中的所有数据。

set RngStart = ActiveSheet.Cells(1, c.column)
set RngEnd = ActiveSheet.Cells(rows.count, c.column).end(xlup)
set MyRng = ActiveSheet.Range(RngStart & ":" & RngEnd)

现在您可以处理数据了。如果您想将其粘贴到格式化为数字的位置：

MyRng.copy
Sheets("Wherever").Range("Wherever").pastespecial xlvalues

如果您想更改现在找到的单元格格式 (How to format column to number format in Excel sheet?)，即整数格式，如果您想要小数点，请使用“数字”而不是“0”：

MyRng.NumberFormat = "0"

或新的目的地：

Sheets("Wherever").Range("Wherever").NumberFormat = "0"

与转换为数字功能完全匹配的一般格式：

MyRng.NumberFormat = "General"
MyRng.Value = MyRng.Value