有个小问题

sampsonpon

kevinchengcw 发表于 2024-11-5 11:26
rows.count前面不加前缀是从activesheet取的
如果activesheet不是sheets("TO")，而activesheet是03的表， ...

所以说，如果Sheets("TO")是sheet8，那么：
Sheet1.Range("A12").Value = Sheet1.Range("A12").Value + Sheet8.Cells(sheet8.Rows.Count, 1).End(3).Row - 1
只有这样，才不会出问题

sampsonpon

nihao123456789 发表于 2024-11-5 13:50
要加的。不加的话会限制使用场景。
当宏放在模块中的时候，需要明确具体的sheet，否则sheet不同结果也不同 ...

所以说，如果Sheets("TO")是sheet8，那么：
Sheet1.Range("A12").Value = Sheet1.Range("A12").Value + Sheet8.Cells(sheet8.Rows.Count, 1).End(3).Row - 1
只有这样，才不会出问题

kevinchengcw

sampsonpon 发表于 2024-11-5 15:22
所以说，如果Sheets("TO")是sheet8，那么：
Sheet1.Range("A12").Value = Sheet1.Range("A12").Value +  ...

也不好，codename不能跨工作簿，如果多簿操作时还应增加工作簿前缀，可以用with语句简化书写

sampsonpon

kevinchengcw 发表于 2024-11-5 15:47
也不好，codename不能跨工作簿，如果多簿操作时还应增加工作簿前缀，可以用with语句简化书写

那就这样？
with sheet1
    .Range("A12").Value = .Range("A12").Value + Sheet8.Cells(sheet8.Rows.Count, 1).End(3).Row - 1
end with