咱们一步步拆解你代码里的问题，先解决编译层面的核心错误：

1. getRow函数代码不完整且拼写错误 #

你贴出的getRow函数只写了半截：

Function getRow(id As Integer, Sheet As Integer) As Integer
    For Each rw In Workshee...

这里Workshee是Worksheets的拼写错误，而且函数缺少循环收尾、返回值赋值和End Function语句，这是直接触发编译失败的头号原因。补全后的函数应该是这样（匹配你找对应ID行的需求）：

Function getRow(id As Integer, SheetIndex As Integer) As Integer
    Dim rw As Range
    ' 只遍历目标工作表的A列，比遍历全表高效得多
    For Each rw In Worksheets(SheetIndex).Range("A:A").Rows
        ' 先判断单元格非空，避免空值干扰
        If Not IsEmpty(rw.Value) And rw.Value = id Then
            getRow = rw.Row ' 给函数赋值返回结果
            Exit For ' 找到目标后直接退出循环
        End If
    Next rw
    ' 如果没找到ID，返回-1作为标记（可根据你的需求调整）
    If getRow = 0 Then getRow = -1
End Function

2. 未声明变量引发的编译错误 #

你的ChangeRow过程里，i、rw这些变量都没提前声明。如果你的VBA项目开启了Option Explicit（强烈建议开启，能避免拼写错误导致的隐性bug），这会直接触发编译报错。解决方法是在模块顶部添加Option Explicit，然后在过程开头声明所有变量：

Option Explicit

Public Sub ChangeRow(Column As String, Value As String, id As Integer)
    Dim i As Integer
    Dim rw As Range
    Dim targetRow As Integer ' 把原来的row改成targetRow，避开VBA关键字
    For i = 4 To 15
        For Each rw In Worksheets(i).Range("A:A").Rows
            If Worksheets(i).Range("A" & rw.Row).Value = id Then
                targetRow = getRow(id, i)
                MsgBox targetRow
                If Worksheets(i).Range(Column & rw.Row).Value <> Value Then
                    Worksheets(i).Range(Column & rw.Row) = Value
                End If
                Exit For
            End If
        Next rw
    Next i
End Sub

3. 使用VBA关键字作为变量名 #

你用了row作为变量名，但Row是VBA的内置属性（比如Range.Row），虽然VBA允许这么做，但很容易引发逻辑混淆和潜在的编译问题。建议改成targetRow这类非关键字的名称。

4. 冗余的变量声明 #

你在If语句块里重复声明Dim row As Integer，每次进入分支都会重新声明变量，虽然不会直接导致编译错误，但不符合良好的编码规范，应该把变量声明统一移到过程开头。

额外优化建议 #

如果数据量较大，遍历单元格的效率会很低，可以用Find方法替代循环找ID，速度会快很多：

Function getRow(id As Integer, SheetIndex As Integer) As Integer
    Dim foundCell As Range
    ' 精准匹配ID值
    Set foundCell = Worksheets(SheetIndex).Range("A:A").Find(What:=id, LookIn:=xlValues, LookAt:=xlWhole)
    If Not foundCell Is Nothing Then
        getRow = foundCell.Row
    Else
        getRow = -1
    End If
End Function

内容的提问来源于stack exchange，提问作者C. Nemeth