excel 怎么用vba实现每一行单独保存为一个文件（重点：包含原批注）？

Question

读取工资表，并把每一行单独保存为一个文件， 这部分已经实现了。 问题是还需要保留工资表中的批注，哪位大牛写一下怎么实现。

Answer 1

现在代码使用的是.Range(...)=topR、EverR的赋值语句，对新工作表存入值，这样注释自然是没有过去的，而且文字、背景颜色等也没有过去，甚至日期都会显示为数字（2021-10-29会显示为44498），有办法一次性解决这些问题，就是在对.Range赋值之前，添加复制语句，具体修改如下：
在程序开始执行后保存当前工作表，添加下面的语句：
Dim src as WorkSheet
Set src = ActiveSheet

赋值的With里面添加两个语句，添加后为：
With .Sheets(1)
src.Range("A1:" & strEndC1 & "1").Copy .Range("A1:" & strEndC1 & "1")
.Range("A1:" & strEndC1 & "1") = topR
src.Range("A" & cx & ":" & strEndC1 & cx).Copy .Range("A2:" & strEndC1 & "2")
.Range("A2:" & strEndC1 & "2") = EveryR
End With

追问

这位老师，运行时报错了：
运行时错误'1004

方法' Range作用于对象' Worksheet'时失败

报错位置就是 src.Range("A1:" & strEndC1 & "1").Copy.Range ("A1:" & strEndC1 & "1")
不知道是不是前两句位置加的不对。。。。

追答

报错的时候选择调试，会打开代码窗口，错误行标记为黄色，鼠标放在单词 strEndC1 上看看变量的值是多少，检查指定的RANGE是否合适，如果异常看看前面对此变量赋值的语句

Answer 2

用copy语句可以引用所有单元格格式