代码修改

随风飘扬去

var a=Worksheets.Item("Sheet2").Cells(Rows.Count,1).End(3).Row;
Worksheets.Item("Sheet1").Range("b2，c2").Copy(Worksheets.Item("Sheet2").Cells(a+1,1));

就是Cells(a+1,1));只能固定在a列，不能修改       需要修改成b列或c列自动向下添加数据

Cells(a+1,"b"))     修改成b列或c列没有问题       问题又不能自动向下添加数据

loirol

最大行号a改成取B列的最大行号就好了
a= cells(65536,"b").end(3).row

这里的"b"也可以用变量代替，方便全局引用

loirol

随风飘扬去

loirol 发表于 2024-11-13 08:59

公式改错误