Excel VBA：如何将Range变量转换为Cells格式实现单元格赋值？

1. 核心错误点 #

• 你用startlocation.Address（字符串格式的单元格地址，比如$A$3）直接替换Cells(3,3)的参数，而Cells()方法需要的是数值型的行/列号，字符串无法被识别，因此报错。
• 原代码里Sheets("Master").Cells(startlocation, 16)存在隐藏bug：startlocation是Range对象，Cells会自动取它的Row属性（也就是3），而不是单元格内的数值（89），这会导致数据写到P3而非P89，只是测试场景下没暴露问题而已。

2. 正确实现代码 #

根据你的需求（把Menu2的C3内容，写到Master的P列对应行，行号取自Menu2的A3数值），直接用Range的偏移和取值即可，无需转换地址：

Public Sub Button1_Click()

    Dim buttonName As String
    Dim buttonCell As Range
    Dim startlocation As Range
    
    buttonName = Application.Caller
    Set buttonCell = ActiveSheet.Shapes(buttonName).TopLeftCell
    Set startlocation = buttonCell.Offset(2, -3) ' 定位到Menu2的A3
    
    ' 核心逻辑：
    ' 目标行号 = startlocation的单元格数值（A3的值89）
    ' 源单元格 = startlocation偏移0行2列（A3→C3）
    Sheets("Master").Cells(startlocation.Value, 16).Value = startlocation.Offset(0, 2).Value
End Sub

3. 若非要用地址转换（不推荐） #

如果一定要通过startlocation.Address来获取C3，可先将地址转为Range对象再取值：

' 替换核心逻辑行即可
Sheets("Master").Cells(startlocation.Value, 16).Value = Sheets("Menu2").Range(startlocation.Address).Offset(0, 2).Value

内容的提问来源于stack exchange，提问作者N. Blain