Excel VBA跨工作表复制偏移单元格内容时返回True的问题求助

问题根源 #

你代码里的Subject = Cell.Offset(0, -2).Copy这一行是关键错误：VBA的Copy方法返回的是一个布尔值（True表示复制成功，False表示失败），而不是单元格里的实际内容。你把这个布尔结果赋值给了Subject字符串变量，所以最终写入到"Create Appointments"工作表时，显示的就是True，而不是你想要的单元格内容。

修复方案 #

1. 核心修复：直接获取单元格值

把赋值Subject的代码改成直接读取单元格的.Value属性，不需要用到剪贴板：

Subject = Cell.Offset(0, -2).Value

2. 代码优化（提升稳定性和效率）

你的代码里用了Select方法，这在VBA里容易引发错误且效率较低，建议直接引用工作表对象，同时提前计算目标工作表的最后一行，避免重复调用End(xlUp)：

Sub CopyApptDetails()
    Dim acpWs As Worksheet
    Dim caWs As Worksheet
    Dim Cell As Range
    Dim Subject As String
    Dim lastRow As Long
    
    ' 定义工作表对象，避免使用Select
    Set acpWs = ActiveWorkbook.Worksheets("All Current Projects")
    Set caWs = ActiveWorkbook.Worksheets("Create Appointments")
    
    ' 遍历目标范围
    For Each Cell In acpWs.Range("L4:L80")
        ' 排除空单元格和非未来日期
        If Cell.Value <> 0 And Cell.Value >= Now() Then
            ' 获取CA工作表的最后一行（避免重复计算）
            lastRow = caWs.Cells(caWs.Rows.Count, "A").End(xlUp).Row + 1
            
            ' 写入数据到CA工作表
            caWs.Range("A" & lastRow).Value = Cell.Value + 14 ' Start Date
            caWs.Range("B" & lastRow).Value = "10:00:00 AM" ' Start Time
            Subject = Cell.Offset(0, -2).Value ' 直接读取单元格内容
            caWs.Range("C" & lastRow).Value = Subject ' Subject Line
        End If
    Next Cell
    
    ' 可选：切换到CA工作表（如果需要手动查看）
    caWs.Select
End Sub

额外说明 #

如果你的需求确实需要用到剪贴板（比如复制单元格格式、公式等），可以先用Copy方法，再用PasteSpecial来粘贴，但对于仅复制单元格文本/数值内容的场景，直接读取.Value是更高效且不易出错的方式。

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