刚接触VBA遇到这种编译错误很正常，我来帮你拆解问题——你说用Find找到"SOI 1"后，消息框能正确返回行号，但把这个行号赋值给变量时就报错Wrong number of arguments or invalid property assignment，结合你给出的代码片段，问题大概率出在这几个地方：

1. 别把属性当成方法调用（最可能的原因） #

你赋值变量时，是不是不小心给Row加了括号？比如写成了row_SOI1 = rFind.Row()？

Row是单元格对象的属性（可以理解成它的固有特征），不是需要执行的方法，所以不需要加括号。正确的写法应该是直接读取这个属性：

row_SOI1 = rFind.Row

如果加了括号，VBA会误以为你要调用一个需要参数的方法，自然就会报“参数数量错误”的编译错。

2. 先确认Find方法的参数没写错 #

你代码里的Find写了LookAt:=xlWhole, ...，省略号的位置如果没补全参数或者语法断裂（比如逗号后面空着），也可能触发编译错误。给你一个标准的Find调用格式，你可以参考：

Set rFind = .Find(What:=test, LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByRows, SearchDirection:=xlNext, SearchFormat:=False)

参数可以根据需求调整，但要保证语法完整，逗号后面要么有参数值，要么直接结束。

3. 变量类型建议换更安全的 #

你把row_SOI1声明成了Integer，但Excel的行号最大能到1048576，而Integer的最大值只有32767，要是你的表格行数超过这个数，后续会触发溢出错误。建议改成Long类型：

Dim row_SOI1 As Long

4. 别忘了判断是否找到目标 #

不管怎样，调用Find后一定要先检查是否真的找到了内容，不然如果没找到rFind就是空对象，读取rFind.Row会直接崩掉：

If Not rFind Is Nothing Then
    row_SOI1 = rFind.Row
    MsgBox "找到的行号是：" & row_SOI1
    ' 这里放你后续要用row_SOI1的代码
Else
    MsgBox "没找到SOI 1哦"
End If

完整的修正代码 #

把这些点整合起来，你的代码可以改成这样：

Public Sub Testing()
    Dim rFind As Range
    Dim row_SOI1 As Long ' 改用Long适配大行数
    Dim test As String ' 别忘了声明test变量
    test = "SOI 1"
    
    With Range("A1:A100")
        ' 完整的Find调用，参数清晰
        Set rFind = .Find(What:=test, LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByRows, SearchDirection:=xlNext, SearchFormat:=False)
        
        If Not rFind Is Nothing Then
            row_SOI1 = rFind.Row ' 正确赋值行号
            MsgBox "找到SOI 1的行号：" & row_SOI1
            ' 这里可以写你后续需要使用row_SOI1的逻辑
        Else
            MsgBox "在A1:A100范围内没找到SOI 1"
        End If
    End With
End Sub

新手刚开始写VBA很容易混淆属性和方法，记住：属性是对象的“属性特征”（比如行号、单元格值），直接读就行；方法是对象的“动作”（比如查找、复制），需要加括号传参数~

内容的提问来源于stack exchange，提问作者Goggles998