[已解决]向老师们请教一代码的改法

yjwdjfqb

向老师们请教一代码的改法
开始行 = 2
数据列 = "C"
最后非空行 = sht.Cells(Rows.Count, 数据列).End(xlUp).Row   '最后一个非空单元格行数
If (Not Intersect(Target, Range("C2:C" & 最后非空行)) Is Nothing) And Target.Count = 1 Then

把红色行中，C改成：数据列　　2改成：开始行

我改成下面这样，没有成功，请教老师们这个应该怎么改，谢谢大家了！
If (Not Intersect(Target, Range("数据列 & 开始行 :数据列" & 最后非空行)) Is Nothing) And Target.Count = 1 Then

最佳答案

月排行榜 / 总排行榜

爱疯

2015-1-31 22:54

Range("数据列 & 开始行 :数据列" & 最后非空行)

改为

Range(cells(开始行,数据列),cells(最后非空行,数据列))

跳转到最佳答案楼层

爱疯

Range("数据列 & 开始行 :数据列" & 最后非空行)

改为

Range(cells(开始行,数据列),cells(最后非空行,数据列))

那么的帅

1. If (Not Intersect(Target, Range(Cells(开始行, 数据列), Cells(最后非空行, 数据列))) Is Nothing) And Target.Count = 1 Then

复制代码

yjwdjfqb

感谢二位老师，就是需要这样的，问题解决了！