Excel VBA For循环无报错但未按预期复制数据问题求助

代码运行无报错但无有效数据写入，是几个逻辑漏洞叠加导致的：

• 未使用行定位完全失效：unused_row只在循环启动前计算1次，写入过程中从未递增，所有匹配到的内容都会写到同一行，后续写入会直接覆盖之前的内容；同时定位未使用行时以A列为基准，但实际写入的是B、C、D列，如果report表A列没有填充过数据，会直接定位到错误的起始行，要么覆盖旧数据，要么写入位置和预期不符。
• 工作表引用不完整：Rows.Count没有指定归属的工作表，运行时会默认取当前活动工作表的总行数，如果活动工作表和report表格式不一致（比如一个是旧版xls格式最大支持65536行，一个是新版xlsx格式最大支持1048576行），会导致最后一行定位完全错误。
• 复制方法不稳定：直接调用Copy方法依赖系统剪贴板，当剪贴板被其他程序占用、源单元格带公式存在兼容问题时，会出现复制空内容但不触发报错的情况。
• 空值判断不严谨：IsEmpty只能识别单元格完全无内容的状态，如果D列单元格是公式返回的空文本、手动输入的空格/不可见字符，会被误判为有效行进入复制逻辑，但对应偏移位置的单元格本身无有效数据，最终写入空内容。
• 取数逻辑存在错位风险：当前代码匹配到D列非空单元格后，会取当前行、下1行、下2行的同列数据，循环到后续行时会重复取数，容易出现数据错位。

Option Explicit

Sub ExportData()
    Dim unused_row As Long
    Dim rng As Range
    Dim ferieVal, permessiVal, flessibilitaVal
    
    ' 按实际写入的B列定位未使用行，所有单元格属性显式绑定report工作表
    With report
        unused_row = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    
    ' 遍历export表指定区域
    For Each rng In export.Range("D1:D600")
        ' 去除空格后判断是否为有效行，过滤空文本、不可见空格的干扰
        If Len(Trim(rng.Text)) > 0 Then
            ' 直接读取目标位置的值，不依赖剪贴板
            ferieVal = rng.Offset(0, 17).Value
            permessiVal = rng.Offset(1, 17).Value
            flessibilitaVal = rng.Offset(2, 17).Value
            
            ' 写入目标表
            report.Cells(unused_row, "B").Value = ferieVal
            report.Cells(unused_row, "C").Value = permessiVal
            report.Cells(unused_row, "D").Value = flessibilitaVal
            
            ' 行号自增，避免覆盖下一行写入
            unused_row = unused_row + 1
        End If
    Next
End Sub

• 请确认偏移逻辑是否符合实际表格结构：当前代码取数为D列单元格所在行向下0/1/2行、向右17列的位置（即U列连续三行），如果三个数据是和D列单元格同一行的连续三列，需要把偏移参数调整为Offset(0,17)、Offset(0,18)、Offset(0,19)。
• 如果需要保留源单元格的格式，可将值赋值替换为复制粘贴模式，粘贴完成后记得清空剪贴板避免占用。

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