查找列标题名称，并选择下面列标题（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 

不过，我仍然遇到一些问题，a非常感谢您的帮助。

Answer 1

试试看。只需将想要查找的所有列标题名称添加到集合中即可。我假设你没有超过200列，如果你只是更新为i = 1到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 2

好的，下面是实现您的目标的简要方法。首先，找到包含员工ID的列。那么只需将整个列设置为数字而不是文本格式？

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 3

添加昏花，您想要的范围：

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 

Answer 4

避免循环所有单元格是很好的做法。如果数据集增长，宏可能变得太慢。使用特殊单元格并粘贴乘以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