Question

继续努力（这可能与问题有关）：

Microsoft Excel for Mac，版本15.41（171205）

macOS High Sierra，版本10.13.2

为了避免代码重复并使其更具可读性，我尝试定义自己的函数来定位包含列名的单元格。

它有3个参数：

headerName - 列的名称（例如＆＃34; ID＆＃34;，＆＃34; Price＆＃34;等等。）

sheetName - 要在

中搜索的工作表的名称

rowNum - 列标题所在行的编号

这就是我写的：

Function findCell(headerName, sheetName, rowNum)

Set cell = _
Sheets(sheetName).Rows(rowNum).Find(headerName,LookIn:=xlValues, _
Lookat:=xlWhole, SearchOrder:=xlRows, SearchDirection:=xlNext, _
MatchCase:=True)

findCell = cell.Column

End Function

确切地说 - 我希望它返回单元格，而不是单元格的列，我只是使用该列作为验证正确性的方法。

但是，这不适用于function（返回#VALUE!）但由于某种原因与sub一起使用（使用{{输出） 1}}）...

Answer 1

对我来说，以下代码可以使用

Function findCell(ByVal headerName As String, ByVal sheetName As String, ByVal rowNum As Long) As Long

Dim cell As Range

    Set cell = _
    Sheets(sheetName).Rows(rowNum).Find(headerName, LookIn:=xlValues, _
                                        Lookat:=xlWhole, SearchOrder:=xlRows, SearchDirection:=xlNext, _
                                        MatchCase:=True)

    If cell Is Nothing Then
        findCell = 0
    Else
        findCell = cell.Column
    End If

End Function

编辑：只是一个疯狂的猜测，因为上述功能在Windows环境中有效。

Function findCell(ByVal headerName As String, ByVal sheetName As String, _
                  ByVal rowNum As Long) As Long

Dim cell As Range
Dim ws As Worksheet
Dim rg As Range

    Set ws = Sheets(sheetName)
    Set rg = ws.Rows(rowNum)

    '    Set cell = _
         '    rg.Find(headerName, LookIn:=xlValues, _
         '            Lookat:=xlWhole, SearchOrder:=xlRows, SearchDirection:=xlNext, _
         '            MatchCase:=False)

    Set cell = rg.Find(headerName, , xlValues, xlWhole, xlRows, xlNext, True)

    If cell Is Nothing Then
        findCell = 0
    Else
        findCell = cell.Column
    End If

End Function

EDIT2：另一个疯狂猜测

Set cell = rg.Find(headerName, , &HFFFFEFBD, 1, 1, 1, True)

Answer 2

我希望这对你有帮助。我使用此代码来查找值为＆＃34; IB＆＃34;在选定的单元格领域。一旦找到＆＃34; IB＆＃34;，我将单元格的值更改为＆＃34; BS＆＃34;。剪切该列，并将其插入另一个位置。然后它迭代我并进入下一个搜索。

我确信它并不优雅，但它可能会帮助你摆脱困境：

Cells.Select
Selection.Find(What:="IB", after:=ActiveCell, LookIn:=xlFormulas, lookat _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Select
Selection.Value = "BS"
MyCol = ActiveCell.Column
Columns(MyCol).Cut
Columns(i).Insert Shift:=xlToRight
i = i + 1

Answer 3

在旧版本的macOS上使用另一台Mac进行测试，旧版本的Microsoft Excel for Mac测试结果相同（即使使用@Storax版本）。测试我在PC / Windows上发布的代码实际上是可行的（正如其他人的评论所述）。

这让我得出结论，这个问题是Mac的VBA版本中的一个奇怪的错误。

我的解决方法 - 而不是定义function我定义了一个使用全局变量的sub。 sub改编自@Storax更好的代码：

Public findColOut As Long


Sub findCol(ByVal headerName As String, ByVal sheetName As String, ByVal rowNum As Long)

Dim cell As Range

Set cell = Sheets(sheetName).Rows(rowNum).Find(headerName,_
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlRows,_
SearchDirection:=xlNext, MatchCase:=True)

If cell Is Nothing Then
   findColOut = 0
Else
   findColOut = cell.Column
End If

End Sub

使用＆＃34;查找＆＃34;在用户定义的函数中 - VBA

3 个答案: